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PREFACE 


Speed in preparing reports is achieved by rapid 
processing of input data and also by rapid prepara- 
tion of programs to produce reports. The Report 
Program Generator (RPG) provides easier and 
faster preparation of programs. 

Instead of writing a particular program for a 
report, the user states his problem and its solution, 
which are the report specifications, in RPG lan- 
guage. RPG processes the report specifications 
and generates a program to write the reports. By 
relieving the user of most of the machine coding 
and program testing, RPG permits him to concen- 
trate his efforts on the best solution to the problem. 
Thus, RPG is essentially problem-oriented rather 
than machine-oriented . 

The programs produced by RPG write reports in 
varying formats. Source (input) data for programs 
produced by RPG may be contained in card, 
magnetic-tape, or disk-storage files. Output from 
programs produced by RPG is prepared in any 
combination of three forms: 

• Printed report 

• Punched cards 

• Magnetic disk records or magnetic tape records 

(but not both) 

The reports produced by programs generated by 
RPG can range from a simple listing of items from 
the input file to complex reports that incorporate 
editing and calculations upon the input data. RPG 
includes such capabilities as printing various kinds 
of lines (heading lines, detail lines, total lines con- 
trolled by control-field changes, and offset total 
lines), serial and page numbering, crossfooting, 
and summary punching. Along with the report, 
exception records can be produced. 



REPORT PROGRAM GENERATOR (ON DISK) SPECIFICATIONS 

IBM 1401, 1440, and 1460 


MACHINE REQUIREMENTS 

Figure 1 shows the minimum machine requirements 
necessary to generate an RPG object program. 
Figure 2 shows the minimum machine requirements 
necessary to execute an RPG object program. The 
system configuration required to execute an RPG 
object program depends on the object program. 

Each system must have a card read-punch. The 
minimum requirements for card, tape, and disk 
RPG programs are listed in Figure 2. Additional 
features that an RPG program can use, if they are 
installed on the object machine, are also listed in 
Figure 2. The amount of core storage required to 
execute an RPG object program depends on the 
complexity of the report. 

INTRODUCTION 

RPG produces programs that write reports of 
variable format from card, magnetic tape, or 
magnetic disk input files. Instead of writing a 
specific program for each report, the user wTites 
a set of specifications and the necessary control 
cards, which he supplies to RPG (Figure 3). At this 
point, the user’s choice determines which form of 
the program is produced. He has three options for 
for the form of generated output: 

1. the object program in machine language punched 
in cards, 

2. the object program in machine language stored in 
disk storage, or 


3. the report program in symbolic (Autocoder) lan- 
guage punched into cards. 

In each of the three options, RPG produces an 
edit listing along with the program. The editTisting 
is a printed record of the source deck, as well as an 
analysis of the specifications and control cards. 
Certain kinds of errors, for example, unacceptable 
entries in the report specifications, will produce 
error messages. 

If the user selects the first option, the RPG and 
Autocoder processors generate a machine- language 
object program. The object program is punched into 
cards, and an Autocoder program listing is produced. 

The second option for the form of generated out- 
put permits load-and-go RPG operation. Under the 
load-and-go option, RPG prints the edit listing and 
generates the report program in Autocoder language. 
Autocoder assembles the report program, pro- 
ducing the object program in machine language, and 
stores it on the system pack in an Autocoder disk 
area. When it completes assembly. Autocoder 
prints an appropriate message and halts. (The 
user can begin loading and executing his object pro- 
gram by pressing the start key. ) 

Under the third option, RPG produces a symbolic 
language (Autocoder) source deck and an edit listing. 
The user can modify this source deck by adding 
additional Autocoder instructions. The symbolic 
program must be further processed by Autocoder 
to produce the object program in machine language. 

Having chosen one of the three options, the user 
can proceed with the next step, which is the last 


System 

Disk 

Core 

Storage 

Card Reader-Punch 

Printer 

Special Features 

IBM 1401 

One IBM 
1311 

4K 

One IBM 1402 Card Read-Punch 

One IBM 1403 
or 

One IBM 1404 

High-Low-Equal Compare 

IBM 1440 

One IBM 
1301 
or 

One IBM 
1311 

4K 

One IBM 1442 Card Read-Punch, 
Model 1 or Model 2 or One IBM 
1442 Card Reader, Model 4 and 
One IBM 1444 Card Punch, Model 1 

One IBM 1443 

None 

IBM 1460 


One IBM 
1301 
or 

One IBM 
1311 

8K 

1 

One IBM 1402 Card Read-Punch 

One IBM 1403 
or 

One IBM 1404 

None 


Figure 1. Minimum Machine Requirements to Generate an RPG Object Program 
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Systvm 

Card Reader-Punch 
(Required) 

For Disk 
Input/Output 

For Printed 
Output 

For Tape Input 

For Tape Output 

Required Special Feature 

Additional Features RPG can 
use if they are installed on 
the object machine. 

n 

IBM 1401* 

■ 

One IBM 1402 Card 
Read-Punch 

One IBM 1311 
(Disk output can. 
use ri^e same 
drive used for 
disk input, or 
it can use an- 
other drive.) 



One IBM 1403 
or 

One IBM 1404 

One IBM 729 Magnetic 
Tape Unit or One IBM 
7330 Magnetic Tape Unit 

One IBM 729 Magnetic 
Tape Unit or One IBM 
7330 Magnetic Tape Unit 

Blocked tape input records 
or blocked disk or tape 
output records require the 
Advanced Programming 
special feature. 

One to Four additional IBM 1311 Disk 
storage drives. 

Advanced Programming special feature. 
Multiply-divide special feature* 
Modify Address * 

Direct Seek special feature * 

Sense Switches « 

IBM 1440* 

One IBM 1442 Cord 
Read-Punch, Model 
1 or 2; or One IBM 
1 442 Card Reader, 
Model 4, and One 
IBM 1444 Card 
Punch, Model 1 . 

One IBM 1301 + 
or 

One IBM 1311 + 

One IBM 1443 

One IBM 7335 Magnetic 
Tape Unit Model 1 (For 
tape input on!/) 

(For both tape input and oi 
Model 2.) 

One IBM 7335 Magnetic 
Tape Unit Model 1 (For 
tape output only) 

tput: One IBM 7335, 

None 

One to Four additional IBM 1311 Disk 
Storoge Drives 

or 

One to Four odditionol Modules of IBM 
1 301 Disk Storage . 

One additional IBM 1442 Card Read- 
Punch, Model 1 or 2. 

Indexing and Store Address Register 
special feature . 

Multiply-divide special feature. 

Direct Seek special feature (IBM 1311). 

Selective Stacker special feature on 
IBM 1442, Model 1 . (This feature is 
standaid cm models 2 and 4.) 

Modify Address. 

Serse Switches. 

IBM 1460* 

One IBM 1402 Cord 
Read-Punch 

One IBM 1301 + 
or 

One IBM 1311 + 

One IBM 1403 
or 

One IBM 1404 

One IBM 729 Magnetic 
Tape Unit or One IBM 
7330 Magnetic Tape Unit 

One IBM 729 Magnetic 
Tape Unit or One IBM 
7330 Magnetic Tape Unit 

Blocked tape input or 
blocked disk or tape out- 
put records require the 
Indexing and Store Ad- 
dress Register special 
feature. 

One to Four additional IBM 1311 Disk 
Storage Drives, 

or 

One to Four additional modules of IBM 
1301 Disk Storage . 
indexing and Store Address Register 
special feature. 

Multiply-divide special feature. 

Direct Seek special feature (IBM 1311), 
Sense Switches. 


* The amount of core storage depends on the complexity of the report. 

+ Disk output con use the some 1311 drive or 1301 module used for disk input, or it con use another drive or module. The disk input data file con use either o 1311 drive or o 1301 module, 
but it must not use both. The some is true for disk output. It is permissible, for example, for the disk input data file to use a 1301 module, arxl a disk output to use a 1311 drive. 

Figure 2. Minimum Machine Requirements for Executing an RPG Object Program 


one. He loads his object program into the system, 
supplies his processing-order file, if one is re- 
quired, and supplies his input file. See Processing 
Order of Disk Input Records for information about 
the processing-order file. The input file can be a 
card file, a magnetic tape file, or a disk file. The 
output from the object program can be any combina- 
tion of these: a printed report, punched cards, and 
either disk records or tape records. 

RPG Translator 

IBM provides the RPG Translator program-for 
present users of 1401 RPG (program number 1401- 
RG-048) who will have IBM 1401' s equipped with 
IBM 1311' s. The function of this program is to 
translate programs written for 1401 RPG to cor- 
responding programs acceptable to 1401-1311 RPG. 
A description of this translator program may be 
found under RPG Translator Program in this 
publication. 

INPUT FILES 

Programs generated by RPG can process input data 
contained in card, disk, or magnetic tape files. 
However, any one program can process input from 


only one source. That is, either card or disk or 
tape may contain the input file, but it must not be in 
more than one of these. 

Card Files 

A card file consists of all the cards in the deck. The 
order in which records are processed is determined 
by the card order. Processing the last card indi- 
cates the end of the file. 

Disk Files 

When the input is from disk storage, the user can 
process any number of records in any order. 
Furthermore, a disk file need not consist of con- 
secutively stored records. Thus, the processing 
order of disk records is not restricted by record- 
storage order. Because of the random-access 
ability of disk storage, the user must specify the 
processing order of his disk records. RPG provides 
for three methods to specify the processing order. 
Each method (or mode) defines a different way of 
selecting the sequence of the desired records in the 
disk file. The three modes are explained under 
Processing Order of Ihsk Input Records. 
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Figure 3. Producing Reports Using the Report Program Generator 

















RPG provides for several types of automatic 
header-label checking of disk files that have IBM 
standard header labels. Details are given in MAS 
Card under Control Cards. 

With disk input, at least one card always follows 
the program deck. This card defines the processing 
order (or limits) of the disk data. This is true even 
with processing order records stored on the disk 
file. (The limits of the processing order records 
must be defined. ) Processing the last such card 
indicates the end of the disk input file. 

Organization 

Programs produced by RPG can process files organ- 
ized as explained in Disk File Organization Routines 
Specifications: IBM 1401, 1440, 1460 (1311 and 
1301) , Form C24-3185, Systems Reference Library 
File No. Genl-34. Record formats applicable to the 
file-organization routines, described in that publi- 
cation, apply for applications using RPG. In gen- 
eral, RPG provides for processing these disk-record 
arrangements: 

• Fixed -length, without trailers 

Blocked 

Unblocked 

e Masters and trailers, variable length (a variable number of 
trailers per master) 

Unblocked masters, unblocked trailers 
Unblocked masters, blocked trailers 
Blocked masters, unblocked trailers 
Blocked masters, blocked trailers 

• Maximum record length is 1,000 characters of data. (The maxi- 
mum combined length of a master and its trailers is 1,000 
characters.) 


• For blocked records, the maximum block length is 9,900 characters . 
(Master records and trailer records can each have a maximum of 
9,900 characters.) 

• For blocked records, the maximum blocking factor is 99 records per 
block. (The maximum blocking factor for trailer records is ten 
records per block. For master records, the maximum is 99.) 

Tape Files 

Programs generated by RPG can process magnetic- 

tape input files that have these characteristics: 

• Maximum record length is 1, 000 characters of 
data. 

• Records are either fixed-length, unblocked; or 
fixed-length, blocked. 

• For blocked records, the maximum blocking 
factor is 99 records per block. 

• For blocked records, the maximum block length is 
9,999 characters. 

• For blocked records, the last character in each 
record must be a record mark (A82). 

• Padding character can be any one of the 64 valid 
characters except these: 


Graphics 

Character Name 

BCD Coi 

¥ 

Asterisk 

B84 

'b 

Substitute Blank 

A 

* 

Group Mark 

BA8421 

+ 

Record Mark 

A82 

r 

Tape Mark 

8421 

V 

Word Separator 

A841 


RPG provides for several types of automatic 
header-label checking of tape files that have IBM 
standard header labels. For details, see TAPIN 
Card under Control Cards. 


8 


RPG (on Disk) Specs. , 1401, 1440, and 1460 



WRITING REPORT SPECIFICATIONS 


GENERAL DESCRIPTION 

To generate an object program, RPG requires cer- 
tain information. The information answers these 
questions: 

1. What are the characteristics of the file from 
which the report data is obtained? 

2. What type of information is to be extracted from 
the input file? From which records can these 
source fields be obtained? 

3. What types of calculations are to be performed 
during the execution of the object program? 

4. What is the format of the report? What headings 
and constants must it contain? How should the 
data composing the report be edited? 

As shown in Figure 3, four forms are required 
for writing the report specifications. The forms 
contain answers to the preceding questions. The 
information is punched into cards with one card 
punched for each line. These cards comprise the 
specifications source deck for the RPG program. 

Before the actual report specifications can be 
written, the user must have a clear image of what 
he wants as the final product. If he desires a printed 
report, he must know the contents of each line of 
the report, the spacing between lines, and the posi- 
tioning of the information within each line of the re- 
port. He uses either the IBM 1403 Printer Spacing 
Chart, Form X24-6436, or the IBM 1443 Printer 
Spacing Chart, Form X24-6596, before writing 
specifications. 

The user must also plan the format for other 
types of output (card, tape, or disk). Then he can 
make appropriate entries on the Format Specifica- 
tions Sheet, 

Preparing the appropriate chart consists of 
laying out the complete format of the report to ob- 
tain a pictorial representation of the final product. 
Although no cards for the source deck are punched 
directly from the entries on this chart the pictorial 
representation serves as a guide to completing the 
four specifications sheets. It thus plays an import- 
ant role in writing report specifications. 

The spacing chart and the four forms required 
are listed here in the order in which they are used, 

A brief description of the functions of each form is 
also given. Later sections wUl explain their use in 
more detail. 

Printer Spacing Chart 

The user's ima^e of the report is projected on 
either the IBM 407, 408, 409, 1403, and 1404 
Printer facing Chart, Form X24-6436; or IBM 


1443 Printer Spacing Chart, Form X24-6596 . He 
must define the position of each field on each line of 
the report and include constant information, head- 
ings, and editing symbols, where applicable. 

Input Specifications, Form X24-6590 

A description of the data file, from which the infor- 
mation required for the report will be extracted, 
must be specified on this form. The user must 
describe each type of record in the data file, with 
its distinguishing record codes and control fields. 

Data Specifications, Form X24-6591 

On this form the user lists the data fields necessary 
for processing the report. These data fields may be 
output fields or factors in calculations. Each field 
described is associated with the input record or 
records that contribute to it. It is also associated 
with any conditions that govern the processing of 
those input records. Any number of fields from one 
or more input records can be listed as the sources 
of a data field. The input sources can be added and 
subtracted as well as moved to the data field. 
Furthermore, the user can state that the status 
(positive, negative, zero, or blank) of a data field 
will be needed to govern subsequent processing. For 
example, a line can be conditioned to print only if a 
particular data field is positive. 

Calculation Specifications, Form X24-6592 

Although a limited amount of calculation is available 
through entries on the data specifications sheet, the 
calculation specifications sheet must be used for 
more extensive calculations including multiplication, 
division, and comparing. This form accommodates 
calculations on data fields described on the data 
specifications sheet, as well as constants and the 
results of previous calculations. Half-adjusting and 
the conditions governing the performance of a cal- 
culation can all be shown on this sheet. Further- 
more, the user can define status conditions based 
upon the sign of the calculated result or the com- 
parison of two fields. 

Format Specifications, Form X24-6593 

The final step in writing report specifications is 
describing the format of output lines. Each line is 
named by its type and relation to other lines. The 
medium of output (printing, punching, writing on 
disks or magnetic tape) is specified as well as the 
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conditions for output. Stacker selection of punched 
output or forms control of printed output can be 
specified. Having named a line, the user lists all 
the constants, data fields, and edit control words 
that compose the line. Control words specify where 
commas, decimals, and conditional credit (CR or 
minus symbols) are to print and where zero sup- 
pression is to stop. Provision is made for descrip- 
tion of conditions, if any, governing the inclusion of 
a field within a line. 

CORRELATING THE REPORT SPECIFICATIONS 

When completed, the five forms are an interrelated 
statement of the problems specified as shown in 
Figure 4, Considered together, the five forms rep- 
resent the input file, the significant data fields 
within that file, the manipulations necessary to ob- 
tain the required output fields, and the line formats 
in which the fields are to appear. The spacing 
chart represents the output lines described in the 
format specifications sheet. The same line names 
are used on both forms. 

The input specifications describe the kinds of 
records in the input data file according to the coding 
and control fields that are significant in these 
records. These specifications determine the con- 
ditions for processing data which is extracted from 
the input file. 

The names assigned to various input records on 
the input specifications sheet are also used as field 
sources on the data specifications sheet. These 
field sources indicate the record from which a data 
field is taken during report writing. 

Each input record is assigned a unique two-digit 
number (from 01 to 99) called a resulting condition 
number. As the report is processed, the resulting 
condition is fulfilled when a record is present in 
the input area which has the record codes specified 
for that resulting condition. The fulfillment of such 
a condition can govern the processing of a source 
field in the data specifications, performance of cal- 
culation specifications, or the output of a line as 
stated in the format specifications. 

The fulfillment of a resulting condition can be 
compared to the transferring of a selector on an ac- 
counting machine during the presence of a particular 
card. It can also be compared to the setting of a 
programming switch on a stored-program machine 
to indicate the presence of a particular record 
type. This switch will be turned off when the record 
has been processed. The change of a control field 
specified for input records can also govern the 
processing of source fields, the performance of a 
calculation, the printing of lines, and the punching 
of cards. 


The fields named on the data specifications sheet 
can be used as factors in calculations or as fields 
in lines. The fields named on the calculation spec- 
ifications sheet can also be placed in lines on the 
format specifications sheet. Sometimes the status 
of a field (positive, negative, zero, or blank) is 
important in the processing of that or other fields. 

It may be that calculations should not be performed 
on zero or blank fields, or it may be that a field 
should be printed in different positions depending 
upon whether it is positive or negative. Whenever 
the status of a field is important to processing, that 
status can be specified on the data sheet or cal- 
culation sheet beside the field name. Then the 
status is assigned a unique two-digit resulting con- 
dition number to represent it. Fulfillment of that 
condition during processing can govern further 
processing, as just indicated. 

Thus, fields from the data and calculation sheets 
contribute to the lines on the format specifications 
sheet. A condition for a line (representing the 
presence of a new record in the input area, for ex- 
ample) can govern the printing, punching, or 
writing on disks or tape for that line. 

This summarizes briefly the elements that enter 
into report specifications. In the sections that 
follow, each of the rules and conventions governing 
report specifications is presented. Sample appli- 
cations are used to illustrate pertinent parts of the 
description. 

Six sample programs and their accompanying con- 
trol cards are shown in Sample Program Documen- 
tation. 

PRINTER SPACING CHART 

The purposes of laying out the report on the spacing 
chart are: 

1. to establish the positions at which the various 
data will be printed, as well as to indicate the 
spacing between printed lines, and 

2. to assign each line a unique identification code. 

Layout of Lines and Fields 

The numbers across the top and bottom of the spac- 
ing chart represent the IBM 1403, 1404, or 1443 
print positions. The numbers down the left side are 
line numbers. The user selects the line number and 
print positions for a particular field and makes his 
notation in the selected positions. In the sample 
layout (Figure 5) note that headings and other con- 
stant information are spelled out completely in the 
print positions assigned to them. Variable infor- 
mation is represented by X's and includes, where 
applicable, credit symbols, pimctuation, etc. The 
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Figure 4. Specifications Correlation Chart 
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Figure 5. Spacing Chart for Monthly Expense Distribution Report 













position in an amount field where zero suppression 
ends is indicated by a zero rather than by an X, 

Line-Identification Code 

The column at the left on the spacing chart is used to 
assign each line a three-character identification 
code. This code identifies the line later on the 
format sheet where each line is described according 
to type and content. 

The first character of the identification code is 
II for a heading line, D for a detail line, or a 
total line. All lines must be identified as belonging 
to one of these categories. Heading and detail lines 
can contain information from the record in the input 
area at the time when lines are produced; total lines 
cannot. 

Classification of Lines 

Two methods of classifying lines may be used. 
Because it does not require a consideration of 
established order or rank, alphabetic level classi- 
fication is a quick and efficient method of assigning 
an identification code to each line. See Numeric 
Level Classification for a detailed explanation of the 
hierarchical relationship between line-levels. How- 
ever, all examples in Format Specifications and in 
the illustrations will be given as alphabetic 
classification. 

Alphabetic Level Classification 

Assign letters to heading lines, detail lines, and 
total lines as shown in Figure 5. The first heading 
line in Figure 5 is assigned HAA. The second 
heading line is assigned HBB; the third, HCC, etc. 
The first detail line is assigned DAA. The first 
total line is assigned TAA. The second total line is 
assigned TBB; the third, TCC, etc. For conven- 
ience, these lines are assigned pairs of letters, but 
if printing occurs on a large number of lines, the 
lines may be classified as HAA, HAB, HAC, etc. 

INPUT SPECIFICATIONS 

This form (Figure 6) specifies the input file from 
which the report is to be prepared. The user 
describes each type of input record in the file. He 
specifies the record codes (that is, the characters 
used to uniquely identify the records) and the control- 
data fields significant in that record type. Records 
that must be processed in sequence within a control 
group can be given numbers representing their 
place in the sequence. The following paragraphs 
describe the information entered on the form. 


Record Sequence 

Column 1 must contain a C, D, or T for every line- 
entry that specifies a card, disk, or tape-record 
type. For a given program, all input records must 
be the same type. 

Columns 2-3 specify two numeric or two alpha- 
betic sequence characters. The Report Program 
Generator can accommodate a maximum of 20 unique 
two-character sequence specifications. If, to en- 
sure proper processing, certain t 3 T>es of input data 
records must be in an established sequence within a 
control group, columns 2-3 of the input specifications 
sheet can contain numeric sequence entries in as- 
cending order. 

If input data records do not have an established 
sequence within a control group, or if it is not 
desirable to halt processing when the records are 
out of sequence, alphabetic sequence designations 
should be used. Some applications contain both 
sequential and non- sequential records. For ex- 
ample, the invoice form shown in Figure 7 is pre- 
pared from the file of cards shown in Figure 8. The 
source of the invoice date is a date card preceding 
the entire file. Because this date card has no se- 
quence relationship in a control group in the input 
file, it is given the alphabetic record sequence AA 
in columns 2-3 of the input specifications sheet 
(Figure 9), 

For proper invoice preparation, the other input 
data cards must be arranged within customer 
number in the sequence shown in Figure 8. There- 
fore, the Invoice To header card's record-sequence 
number is 01, the Shipped To header card is 02, the 
Shipped Via is 03, the Order Data is 04, and the 
Item detail is 05. Each time the customer number 
changes, this sequence begins again. 

For sequential records. Column 4 indicates the 
number (either a 1 or N) of that type of record in a 
control group in the input data file. If there is only 
one record of a type per group, enter a 1 in column 
4, If there is more than one record of a type, enter 
an N in column 4. 

Except for detail cards, there is only one card of 
each type in the control group in the invoice example. 
Therefore, for the Invoice To card a 1 is entered on 
the sheet in column 4. For the detail card an N is 
specified. Column 4 can be left blank for non- 
sequential records. 

Column 5 must contain the letter X if the presence 
of a sequential record in the input data file is 
optional. If a record type is required for proper 
processing, leave column 5 blank. In Figure 7, the 
Shipped To entry is optional because that record ap- 
pears only if the customer to whom the invoice is 
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sent has instructed the Representative Company to 
direct shipment to an address different from his 
own. An X in column 5 specifies that the Shipped To 
record is optional (Figure 3). 

Any input disk or magnetic-tape record that is 
designated as optional cannot exceed 200 characters. 

Record Codes 

An input record can be identified by any number of 
record codes. All record codes specified for a 
single record type are considered in an AND rela- 
tion. That is, all the codes must be present in the 
record. Columns 6-41 of the input specifications 
sheet provide space on one line-entry to specify as 
many as six record codes per type of input record. 

It is possible, however, to specify more than six 
record codes per type by using more than one 
line- entry. 

• The first line has no resulting-condition number in columns 42-43. 
Columns 1-41 are filled in as normal. 


• Columns 2-5 are filled in only for the first line. 

• Succeeding lines have a C, D, or T in column 1 and the additional 
record codes. 

• Only the last line-entry for a single record type has a resulting- 
condition number in columns ^2 -4 3- 


Each input record is analyzed to determine if it 
meets the record code specifications of the first 
record type on the Input Specifications sheet. If the 
input record does not meet the first record code, 
the program will determine if the second record 
fype conditions are satisfied. When an input record 
satisfies the record code specifications, the asso- 
ciated input resulting condition is set. Only one 
input resulting condition can be set for any one in- 
put record. 

If an input record fails to satisfy the record code 
requirements of any specified input record type, a 
program halt will occur. When the program is re- 
started, it will bypass that record and read the next 
data record. 
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REPRESENTATIVE COMPANY 
ANY CITY - ANY STATE 


INVOICE 

INVOICE TO SHIPPED TO 

r nr n 

E C BROWN £ CO X-Y-Z SERVICE CORP 

2364 MICHIGAN BLVD 222 WESTERN AVE 

CHICAGO 27, ILL INDIANAPOLIS, IND 

L -1 L J 

NUM&ER PAGE 

26115 1 

JUL 25,64 
29045 

SHIPPED VIA 

WESTERN TRUCKERS 

ORDER DATE ORDER NO. 

03/15/6U AK-71U23 DE D NORTON 


PtEASE REFER TO 
OUR INVOICE NUMBER 
WHEN REMITTING 
TERMS 2% TIN DAYS 
F. O. B. FACTORY 

ITEM NUMBER 

DESCRIPTION 

QUANTITY & 
UNIT OF MEAS. 

UNIT PRICE 

AMOUNT 

115/278 

LAG SCREWS 1 X 1/2 

2 C 

5.25 

10.50 

115/282 

LAG SCREWS 3 X 1/2 

5 C 

5,30 

26.50 

SBN- 02 

HAMMER-ADZE EYE, BELL P0LL,RND NECK 

12 DOZ 

10.50 

126.00 

369-2HF 

HAMMER-BALL PEEN 2/0 , 3/4 LB 

4 DOZ 

12.64 

50.56 

101-224 

WASHING MACHINE 

8 EACH 

165.00 

1,320.00 

21-564 

NAILS-STEEL WIRE 60-2 IN 

6 CWT 

8.30 

49.80 

21-572 

NAILS-STEEL WIRE 100-3 IN 

4 CWT 

7.80 

31.20 

143-210 

BRUSH, FLAT WALL 3X2 5/8 X 13/16 

6 EACH 

.95 

5.70 

743D217 

GROMMETS 

720 EACH 

.01 

7.20 

216-210 

PAINT, FLAT WHITE 

12 GAL 

2.85 

34.20 


REPRESENTATIVE COMPANY 
ANY CITY - ANY STATE 


INVOICE 

INVOICE TO SHIPPED TO 

r nr 

E C BROWN E CO 

n 

NUMBER PAGE 

26115 2 

L 

_l L 

j 



SHIPPED VIA 
ORDER DATE 

ORDER NO. 


PLEASE REFER TO 
OUR INVOICE NUMBER 
WHEN REMITTING 
TERMS 2% TEN DAYS 
F.O.B. FACTORY 

ITEM NUMBER 

DESCRIPTION 

QUANTITY & 
UNIT OF MEAS. 

UNIT PRICE 

AMOUNT 

216-418 

PAINT, WALL UNDERCOAT 

1 GAL 

2.95 

2.95 


INV TOT 



$ 1,664.61* 


2% DISC 



$ 33.29CR 


NET AMT 



$ 1,631.32* 

DCDPCCCMTATmC rr»MDAMV 


FIN TOT Jl 

L 25,64 

i 74, 

921.35** 


Figure 7. Invoice Example 
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Figixre 8. Input Data Cards for Invoice Preparation 



Figure 9. Excerpt from Input Specifications for Invoice Repert 

When all input records are to be processed alike 
without regard for their record codes, a single 
record type may be specified without any entry in 


the record code fields, (Columns 6-41 will be left 
blank. ) When certain input records are present 
which are to be merely read and bypassed, the 
records to be processed are listed first with their 
identifying record codes. 

The last record t 5 ^e entered on the Input Specifi- 
cations sheet can be left blank in columns 6-41. Any 
record not satisfying the preceding specifications 
will satisfy this condition. No processing need be 
performed for this particular type of record. 

Columns 6-8 state the position number (input card 
column, disk- record position, or tape-record posi- 
tion) that contains the record-code character. 

Column 9 must contain an N if a negation con- 
dition is intended; otherwise it is left blank, A 
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negation means that the code described is not pres- 
ent in the record specified. 

Column 10 must have a Z, D, or C, depending 
upon whether the record-code comparison to be 
made is that of the zone portion only, the digit 
portion only, or the full character. 

Column 11 is used for the particular record code. 
Any valid alphameric character (including a blank) 
can be entered in column 11. If the entry in column 
10 is a C, the character is entered in column 11. 

If the entry in column 10 is a D, the exact digit is 
entered in column 11. If the entry in column 10 is a 
Z, any character containing the desired zone can be 
entered. 

Columns 12-41 are used for five additional 
record code designations in the same manner as 
6 - 11 . 

All record-code entries describing one input- 
record type are represented by one resulting- 
condition entry entered in Columns 42-43. The 
resulting condition is a unique two-digit number 
arbitrarily chosen by the user to represent a record 
(in the area 01-99) coded according to his 
specifications. 

It may be useful, however, to assign the same 
resulting- condition number to more than one 
record t3q)e. 

Figure 9 shows the entries necessary in columns 
1-43 of the input specifications sheet for the Invoice 
Report. 

In some applications there is more than one kind 
of record of a given type. For instance, in the 
invoice example just given, suppose that the file of 
input data cards contained three kinds of detail 
cards: 

1. a 1 -punch in column 80, 

2. a 2 -punch in column 80, 

3. a 3 -punch in column 80. 

For other reports, the 1-, 2-, and 3-punches 
might be significant, but in preparing invoices all 
three kinds of detail cards should be treated as one 
type. Therefore, they would receive the same se- 
quence designation. Furthermore, suppose that in 
the input data file it were possible that for a given 
customer there may be any number of detail cards of 
each kind, including none of some kinds. Each kind 
would have N-number within a control group, and 
each kind would be optional within that group. The 
specifications for the conditions just stated consist 
of a separate line-entry for each kind of detail card, 
each having its own resulting condition (lines 2, 3, 
and 4 pf Figure 10). 

When records that are coded differently are to be 
processed alike for the most part, they may have 



Figttre 10. Three Kinds of Input Records Defined as One 
Record-Sequence Type 

the same sequence designation in columns 2-3 
(whether that designation is numeric or alphabetic). 
To represent their unique record codes, however, 
and to distinguish them later, they normally receive 
different re suiting- condition numbers. Such records 
are said to be in an Or relation. 

Control Fields 

Control fields are record positions containing infor- 
mation identifying the classifications to which the 
record belongs. Columns 44-73 of the input specifi- 
cations sheet list the control fields present in each 
type of input data record. Each field is described 
by its right-most position in the input record and 
its length. The fields are specified in ascending 
sequence of control levels beginning with the entries 
for the most minor level in Field 1 (columns 44-48) 
and continuing to the right as far as necessary. Six 
is the maximum number of control fields that can be 
specified. 

Frequently, it is necessary to process data 
having split control fields. For example, assume 
that the intermediate control field is split into two 
different parts of the input data record. To handle 
this condition properly, one portion of the field 
should be specified in normal fashion as Field 2 and 
the other portion as Field 3. Calculations, output, 
etc. , conditioned by a break in Field 2 will be per- 
formed whenever either Field 2 or Field 3 changes. 
Minor control is still affected using Field 1, 
whereas major control will utilize Field 4. 

It is not necessary that a control field be in the 
same position in different sequence designations. 

It is important, however, that a field be entered 
under the proper level on the input specifications 
sheet. None of the heading cards in the invoice ex- 
ample have the lowest level of control. Item Num- 
ber. Therefore, field 1 is left blank for those 
record specifications. The next level of control. 
Customer Number, is present in those records. It 
is specified in columns 49-53 of the sheet. The de- 
tail cards in that example have both levels of con- 
trol. Therefore entries are present for fields 1 
and 2 (Figure 11). 
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Figure 11. Input Specifications for Invoice Report 

If there are more than six record codes in a 
record type, the control-field entries are made only 
on the last line-entry for that record type. 

Sequence Control 

A special entry applies when the records of an input 
file are required to be in a fixed sequence within a 
control group. This is the SCFx entry in columns 
1-4, which is used for numerically designated types 
of records. The x is the number of the control field, 
A change in this control field means that the se- 
quence is to begin again. In the invoice example the 
sequence of records specified relates to customer 
number. Every change in customer number means 
that the sequence of records begins again with an 
Invoice To record. Because customer number is 
field 2 (Figure 11), the proper entry for this Invoice 
Report is SCF2 in Columns 1-4 on the line below the 
last sequential record specification. Every applica- 
tion that has sequential- record specifications must 
have an SCFx entry at the end of the input 
specifications, 

A break in the control field which is specified in 
the SCF entry means that the sequence of input is to 
begin again starting with COl. Therefore, COl 
should never be designated as an optional entry. 

There are three causes for an out-of-sequence 
condition: 

1. A control break occurred on a type of input other 
than a COl. 

2. A required numeric type of input in a control 
group was missing. 

3. A non-optional card was missing. However, if 

a COl t 3 q>e of input is designated N (one or more 
of this type is allowed), then a control break will 
take precedence over a missing non-optional 
card. 

Page Number 

Columns 76-77 are used for page numbering. The 
page-number entry is in the upper ri^t-hand corner 
of the input specifications sheet. The pages are 


numbered consecutively beginning with the spacing 
chart as page 01. 

Card Number 

A three-character card number in Columns 78-80 
establishes the order of entries on the specifications 
sheet. The first 20 lines of the sheet are prenum- 
bered 010-200. The six unnumbered lines at the 
bottom of the sheet are for the entry of statements 
inadvertently omitted and for sheet extension. In- 
sertions can be referenced by numbering the state- 
ment with the hundreds and tens digits of the state- 
ment it is to follow and with any one of the units 
digits 1-9. This allows up to nine insertions between 
two consecutive prenumbered statements. 

DATA SPECIFICATIONS 

The Data Specifications sheet (Figure 12) describes 
the fields that appear in the output and those used in 
processing. 

D (Data) 

Column 1 must contain a D for every line- entry on 
the sheet. The D identifies each entry as a data 
specification. 

Field Name 

Colunms 2-7 must contain a name for each of the data 
fields necessary to process the report. Numbers 
and special characters should not be used in a field 
name to avoid conflict with field names and instruc- 
tion labels used by the RPG processor. Any name 
must be left-justified. The alphabetic field name 
CONTD must not be used on the data specifications 
sheet. To use the field name PAGENO, see Serial , 
Record, and Page Numbers under Data 
Specifications . 

Note: Any number of line-entries for the same data field (same 
Field Name) is permitted. In these cases, write the line-entries in the 
order in which the data manipulations should occur. 

Field Length Unedited 

Columns 8-10 contain the unedited field length of the 
report field. Unedited length means the length not 
counting punctuation supplied by program editing. 

For example, in Figure 7 the date on the second 
printed heading line is contained in a card as 
Jul 25, 64. Because the date field desired on the 
report is the same, the unedited field length entry 
for DATE is 009. If the date were contained in a 
card as Jul2564 and the date field desired in the 
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Figure 12. Data Specifications Sheet 


report were Jul. 25, 64, with the period and 
comma supplied by program editing, then the entry 
for unedited field length would be 007. 

Note; The maximum unedited field length is 099. 

Decimal Length 

For numeric data fields enter in Columns 11-12 the 
number of positions of the data field that is a 
decimal fraction. (The maximum permitted is 09. ) 
For example, suppose that a data field were of the 
form XXX. xx. The unedited length would be 5 posi- 
tions. Of these 5 positions, 2 positions would 
belong to the right of the decimal point. Hence the 
entry in columns 11-12 for this data field would be 
02 . 

Note; For a numeric data field that contains no decimals, enter 
00. For alphabetic or alphameric data fields, leave these columns 
blank. 


Sources of Field 

Columns 22-72 specify three sources of the report 
field. If more than three sources must be specified 
for a report field, use more than one line. 

Columns 22-24 define the first source of the field. 
Possible sources are input records, serial numbers, 
page number, and record-count numbers. The 
entries are Cxx, Dxx, and Txx for input record 
sources, SER for serial numbers, PAG for page 
number, and RCT for record-count numbers. When 
the field source is an input record, the appropriate 
entry must come from columns 1-3 of the input 
specifications sheet. 

Column 25 contains an N if the field is a numeric 
field that has zoning in positions other than the units 
position. The object program will then strip the 
zero-, 11-, or 12-zones from all positions except 
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the units in the field for which an N is specified. If 
the units position contains no zone, this specification 
will create a 12-zone in that position. 

The other entry permitted in column 25 is an M. 
This identifies the entry as a month-field conversion 
specification. (See Month- Field Conversion under 
Data Specifications for an explanation and example 
of this entry. ) Otherwise leave this column blank. 

Columns 26-28 contain the location of the low- 
order position of the field in the source record. For 
fields whose sources are SER, PAG, and RCT, these 
columns should be left blank. 

Note: For IBM 1401 and 1460 Data Processing Systems using 51- 
column input data cards, see Special Feature Specifications. 


Columns 29-31 must contain the field length in the 
source record only if that length is different from the 
unedited (report) field length specified in columns 8- 
10. For example, in Figure 13 the entry on the data 
specifications sheet for SOLDTO gives the unedited 
field length in columns 8-10 as 020. Because the 
source field length is the same, columns 29-31 are 
left blank for that field. The entry for AMOUNT 
specifies an unedited field length of 006 in columns 
8-10. This provides sufficient positions for the 
largest total expected although the source field length 
specified in columns 29-31 is 005. The source field 
length should be left blank when the source is SER, 
PAG, or RCT. 
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One of the following seven operation characters 
must be specified in column 32: 

Blank Move the source field to the data field. 

A Add the source field to the data field. 

S Subtract the source field from the data field. 

+ 

0 Reset the data field to zero before adding the source field 

+ 

to it. (Punch 12,0 for 0.) 

0 Reset the data field to zero before subtracting the source 

field from it. (Punch 11,0 for 0.) 

D Move the numeric portion of the single -character source 

field to the units position of the data field. The zone portions 
are undisturbed in both fields. 

Y Move the zone portion of the single-character source field to 

the units position of the data field. The numeric portions are 
undisturbed in both fields. 
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Figure 14 illustrates the use of the single-char- 
acter move-numeric and move-zone operations. 



Figure 14, Single-Character Move-Numeric and 
Move -Zone Operations 

Each line- entry is explained as follows: 

1. The first line-entry specifies that the six- 
character field at position 074 in input record 
C06 should be moved to the data field, AMOUNT. 
Furthermore, the zone portion of the single- 
character source field in column 69 of the same 
record is to be moved to the units position of the 
data field, AMOUNT, By using an entry such as 
this, the hi^-order position of the source field 
can contribute the sign to the units position of 
the data field. 

2. The second line specifies that the five-column 
source field in columns 49-53 of record type 
CBB is to be moved to the five-position data 
field, FLDR. The zone portion of the single- 
character source field in column 70 of CBB is to 
be moved into the units position of the data field, 
FLDR, By using an entry such as this, a data 
field can acquire its unit-position sign from any 
position in a record. By choosing a one-position 
field source containing no zones for the Y oper- 
ation, an unwanted sign in the units position of 
the data field can be removed. 

3. The third line specifies that the numeric portion 
of the one-column source field in colunrn 35 of 
card type C02 is to be moved into the one-position 
data field, FLDS. By using an entry such as 


an imwanted sign can be moved into the data field 
without the unwanted sign. 

Because the Y and D operations are single- 
character move operations, it is not necessary to 
specify the field length in Columns 8-10. When Y 
or D operations are specified on the same lines as 
another operation, they should follow the other oper- 
ation. This ensures the proper sequence of oper- 
ation in the object program. For example, in the 
first two line-entries in Figure 14, the Y-entries 
are made to the right of the blank (move) operation 
entries. 

The same principle of ordering source entries on 
a line applies in some arithmetic specifications. 

This is because the object program performs the 
operations specified in the order of entry on the 
sheet from left to right. 






For example, if a field being described is the 
result of adding or subtracting more than one field 
from the same source record, and if that field must 
be reset prior to the first operation, then the source 
field described first (in columns 22-38) should be the 
one that is reset-added or reset-subtracted. 

Columns 33-35 can be used to specify a condition 
that is to govern the operation upon the source field. 

It can be either a positive condition. Such as F3 to 
indicate a change in control field 3, or a negative 
condition, such as NF3 to indicate no change in con- 
trol field 3. The conditions specified on this sheet 
are the resulting conditions of the input specifications 
sheet, control-field changes (F1-F6), sense switch 
settings (SB, SC, and SD), resulting conditions 
specified by other entries on the data sheet, or the 
negation of any of these when preceded by an N. The 
following list shows the resulting conditions which 
are defined by the RPG processor. 


Condition 

Explanation 

F1-F6 

Change in control field 1 through control field 6 
(columns 44-73 of Input Specifications Sheet) 

OF 

Page Overflow 

IP 

First Page 

SB 

Sense Switch B 

SC 

Sense Switch C 

SD 

Sense Switch D 

Lx: 

Last card, tape, or disk record 


In the Invoice Report shown in Figure 7, the 
minor group-indicative information (Item Number, 
Description, Unit of Measure, and Unit Price) is to 
be obtained from the first card of each minor control 
group. Hence the specification for ITEMNO is con- 
dition FI in columns 34-35 of the data specifications 
sheet (Figure 15), This entry specifies that the 
source field is to be moved to ITEMNO only from the 
first card after a change in control field 1. 

Other permissible entries in Columns 22-72 are 
RCT, SER, and PAG. See Serial Record and Page 
Numbers . 

Columns 36-38 can be used to specify a second 
condition governing the operation upon the source 
field. If two conditions are specified, they are con- 
sidered in an AND relation. That is, both conditions 
specified must be met before the operation specified 
in Column 32 is performed upon the source field. 

When the field being specified has more than one 
source, the second source is specified by entries in 
Columns 39-55 in the same manner as the first 



Figure 15. Conditioning Operations on Source Fields 

source in Columns 22-38. The third is specified in 
Columns 56-72. If more than three sources exist for 
a field, more than one line-entry is required to 
specify the sources. In such instances, the first 
line-entry for the field is prepared as previously 
described. The second and succeeding-line entries 
for the field have a D entered in column 1. Columns 
2-21 are blank. Columns 22-72 are used, as re- 
quired, to enter the information for the remaining 
sources of the field. Figure 16 is an example. 

Field Status 

The user can govern subsequent processing accord- 
ing to the status (positive, negative, zero, or blank) 
of a particular field. Columns 13-21 of the data 
sheet are used to assign resulting-condition numbers 
to represent one, two, or three possibilities for the 
status of the field. If the field' s status is not sig- 
nificant in the control of processing, leave columns 
13-21 blank. 

Column 13 is used for the first status character. 
The acceptable characters and their meanings are: 

B Blank 

Z ± Zero (signed or unsigned) or blank 
N Negative, including minus zero 
P Positive, including plus zero 

Note: Minus zero can occur during processing on the IBM 1401, 
1440, or 1460 Data Processing System. 

Columns 14-15 are for the assignment of a 
unique resulting condition. This is a two-digit 
number which identifies the field status specified in 
column 13. The number entered here can be any 
one in the range 01 throu^ 99 with the exception of 
any number used to define a resulting condition on 
the input or the calculation specifications sheets. 



Figure 16. Specifying Four Field Sources 
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The field status refers to the condition of the data 
field after the operation has been accomplished by 
the object program. For example, if a source field 
is added into a data field with a zero status defined 
as Z25 in columns 13-15, condition 25 will be ful- 
filled by the program whenever the specified ad- 
dition results in a zero data field. This condition 
can then be used to govern other operations in the 
program such as the performance of a calculation. 

Refer to the first line of Figure 15. The source 
field ITEMNO from C05 will never be blank. It will 
be blank in the data field ITEMNO only before print- 
ing the first set of total lines. (This condition takes 
place before the input file information has been 
transferred to the fields in the data specifications. ) 
By setting the resulting condition 07 when ITEMNO 
is blank, total printing can be suppressed. See 
Suppression of Output from Run-In Control Breaks 
under Format Specifications . 

Each resulting condition specified under Field 
Status must be different than any other resulting 
condition specified here or elsewhere. Any attempt 
to set the same resulting condition under either of 
several different conditions will usually yield incon- 
sistent results. For example, a resulting condition 
can be set as a result of one specification, and yet 
it can be turned off by a subsequent specification. 

Columns 16-21, if necessary, specify two more 
sets of status conditions for the data field. 


Page Number 

Columns 76-77 are used for page numbering. The 
entry is made in the upper right-hand comer of the 
data sheet. The pages are numbered consecutively 
beginning with the spacing chart as page number 01. 

Card Number 

Although the entries on the data specifications sheet 
can be in any order, a card number (Columns 78-80) 
aids identification of line entries. 

Conversion of Month Field 

In many applications a month field is a single char- 
acter with the months January throu^ September 
represented by the numbers 1 through 9, and the 
months October through December each represented 
by a zone or a combination of a zone and a number. 
In these applications the single-character repre- 
sentation of the months can be converted automat- 
ically at object-program time to the corresponding 
two-character representation, January through 
September are then 01 through 09; the months 


October, November, and December are 10, 11, and 
12 . 

Figure 17 shows the specification for month-field 
conversion used in the Monthly Expense Distribution 
Report. Columns 8-10 contain 002, the data field- 
length after conversion. Columns 11-12 contain 00, 
because the numeric data field contains no decimals. 
The M in Column 25 identifies a month-field con- 
version specification. Columns 29, 30, and 31 con- 
tain the specific single-characters used in the source 
field to represent (in the user' s input file) the months 
October, November, and December, respectively. 
The other entries on the line are as previously 
explained. 
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Figure 17. Specification for Month-Field Conversion 

Serial, Record, and Page Numbers 

Any number of serial or record-count numbers can be 
specified in a single application. Each has the source 
SER or RCT and a unique data-field name in columns 
2-7, It is also possible to maintain a single tally for 
more than one record type by specifying multiple 
RCT sources to a data field. Each source then must 
be conditioned by the resulting-condition number of 
a different record-type. For example, all records 
having the resulting condition 02 or 04 can be counted 
in a single tally by two RCT sources to the tally: one 
with condition 02, the other with condition 04. A 
single serial number can be increased for different 
reasons by multiple SER sources. 

If the field-source entry on a given line is RCT or 
SER, the entries in columns 33-38 specify the con- 
ditions to be met for increasing the record-count or 
the serial-count. All input records can be counted by 
an entry such as the second line of Figure 15. Se- 
lective record counting can be accomplished as in 
the third line-entry of Figure 15. In columns 34-35 
of Figure 15, 02 represents the resulting- condition 
number of a record type defined on the input sheet. 

In Figure 11, condition 02 is an Invoice To card. 

Thus, the count in that application will be increased 
by one for each first card in the intermediate group 
controlled by customer number. 

If the field source entry is PAG, the conditions 
are for reset of page count. Figure 7 shows the 
pages of each customer's invoice form that are to be 
numbered at the top of each invoice form. With a 
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control change in customer number (field 2), page 
numbering is to begin again at one. Therefore, the 
proper entry for PAGE NO as shown on the fourth 
line of Figure 15 includes F2 as the condition for 
reset. When no condition is described for a PAG 
source, the object program numbers the report 
pages consecutively from beginning to end. 

There can be only one page number in an applica- 
tion. Its data name must be PAGE NO. It will be 
increased by the object program each time it is to 
be printed. 

By specifying more than one PAG source to 
PAGENO, it is possible to cause it to reset under 
different conditions. 

The object program automatically initializes 
record, serial, and page numbers so that they will 
begin with the number 1, However, if the user 
wants an initial number other than 1 in an applica- 
tion with card input, a separate card containing the 
initial number minus 1 and a unique code to identify 
that card can be read in ahead of the input-data file. 
The initializing card just mentioned must have been 
defined on the input specifications sheet, and an 
entry on the data specifications sheet must have in- 
cluded the proper reference to the source of the 
initial number minus 1. Prepare the initializing 
card as follows: for each number (record coxmt, 
page number, or serial number) punch an initial 
value in the card in arbitrarily chosen columns, 
Pimch a unique code in the card to identify it. 

Note; This procedure may be used when the application calls for 
tape or disk input, if the initializing record is the first record of the 
input file. 

For example, if a listing application is inter- 
rupted after printing the 50th page for the 25th 
serially numbered document (the next page to be 
printed is 51 and the serial number to be printed on 
the next page is 25), correct numbering can be 
resumed if: 

1. One card for initializing both the page and serial 
numbers is prepared and read in ahead of the 
remaining input records when a new machine run 
begins. 

2. Specifications pertaining to the initializing card 
have been included on the input and the data 
specifications sheets. 

The initializing card for resuming page and serial 
numbering in this example can be punched as shown 
in Figure 18. 

The initializing card is assigned two alphabetic 
record- sequence characters (NN is arbitrarily 
chosen) for the input specifications sheet in columns 
2-3. Figures 19 and 20 show the information per- 
taining to the initializing card, which must be in- 
cluded in the report specifications. Thus, the serial 
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Figvtre 18. Example Format of an Initializing Card 
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Figure 19. Input Specifications for an Initializing Card 



Figure 20. Data Specifications for an Initializing Card 

and page numbers will be set at the values in the 
CNN card at the beginning of the run. Page number 
will be increased by one whenever it is to be printed. 
Serial number will be increased whenever there is a 
change in control field 1. Furthermore, page num- 
ber will be reset on the control-field change. 

To reinitialize a page, serial, or record-count 
number at any point during a machine run, include a 
record such as CNN at that point in the input file. 

The operation code on the data sheet will probably 
be 0 in such cases. 

CALCULATION SPECIFICATIONS 

On this form (Figure 21) the user specifies calcula- 
tions that are more extensive than those that can be 
defined on the data specifications sheet. For ex- 
ample, comparison, multiplication, and division 
can be specified, as well as arithmetic operations to 
be performed upon resulting fields from either the 
data specifications sheet or from prior entries on 
the calculation specifications sheet. 

For IBM 1401, 1440, 1460 Data Processing Sys- 
tems not equipped with the multiply- divide special 
feature, RPG will incorporate subroutines in the 
object program to enable the user to perform 
multiplication and division. The following para- 
graphs explain the entries on the calculation specifi- 
cations sheet. 
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Figure 21. Calculation Specifications Sheet 
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A (Aritjimetic) 

In Column 1 an A identifies the entry as a calculation 
specification. 

Field Name 

The name of the field that will contain the result of 
the calculation specified is entered in Columns 2-7, 
Numbers and special characters should not be used 
to avoid conflict with field names and instruction 
labels used by the RPG Processor. Field names 
must be left-justified. 

One exception to not using a field name that in- 
cludes a number is permitted in the case of control 
data converted to disk addresses. The field name of 
the converted number, if used, must be CONVl (see 
Conversion- Routine Specifications under Calculation 
Specifications) . 

For a compare specification (C in Column 29), 
columns 2-7 must be blank. These columns can 
also be left blank if the result of this calculation af- 
fects the last data field specified as the result of a 
preceding calculation. 

Note; Any number of line-entries for the same field (same Field 
Name ) is permitted. Write the line -entries in the order in which the 
calculations should occur. 

Field Length Unedited 

Columns 8-10 must contain the unedited length of the 
field. See the corresponding paragraph under Data 
Specifications for further explanation of imedited 
field-length. 

Decimal Length 

Specify in Columns 11-12 the number of digits in the 
decimal portion of Field Name. (The maximum per- 
mitted is 09. ) For example, when a field should 
contain three digits to the right of the decimal point, 
specify 03 in Columns 11-12. For further explana- 
tion of decimal length, see Decimal Alignment under 
Calculation Specifications . 

Note; For a numeric field that contains no decimals, enter 00. 

For alphabetic or alphameric fields, leave these columns blank. 

Half-Adjust 

When the user wants to half-adjust (or round) the 
result of a calculation, he should enter an alphabetic 
X in Column 13, Half-adjusting the result is ac- 
complished automatically by adding 5 to the number 
in the highest-order position to be dropped. Half- 
adjusting is done just prior to placing the result of 
a calculation in the Field Name specified. See 


Decimal Alignment under Calculation Specifications 
for an example that illustrates half-adjusting. When 
no half-adjusting is wanted, leave Column 13 blank. 

Field Status 

As in the case of data specifications, the user may 
want to govern later processing (as defined by for- 
mat specifications and subsequent calculation spec- 
ifications) according to the status of a particular 
field. Columns 14-22 of the calculation specifica- 
tions sheet can be used for this purpose. The 
allowable entries in columns 14, 17, and 20 are 
those given for the field status of the data specifi- 
cations sheet (B, Z, N, and P), as well as the 
following entries that are related to the comparison 
of two fields: 

E Factor 2 is equal to factor 1. 

U Factor 2 is unequal to factor 1. 

H Factor 2 is higher in sequence than factor 1. 

L Factor 2 is lower in sequence than factor 1. 

Note; The H, L, and E entries are valid only if the IBM system 
used to execute the object program is equipped with the high-low- 
equal compare special feature (Standard on IBM 1440 and IBM 1460). 

As mentioned under Field Status for the data 
specifications sheet, each status entry (Columns 
14, 17, and 20) should be defined by a corresponding 
unique resulting- condition number (Columns 15-16, 
18-19, and. 21-22). These resulting-condition num- 
bers can be used to govern other operations. 

Factor 1 

Columns 23-28 are used to state the field name or 
the literal constant that is the multiplicand (the 
number which is to be multiplied by another num- 
ber), dividend (the number which is to be divided by 
another number), augend (the number to which 
another is added), minuend (the number from which 
another is subtracted), or the field with which another 
field is compared. A field name thus entered must 
have been specified by an appropriate entry in 
columns 2-7 of the data specifications sheet, or by 
a W-entry on a format specifications sheet (see 
Format Specifications ). The alphabetic name of 
factor 1 is left- justified. The first letter is entered 
in Column 23, 

Literal constants can be used as factor 1 (see 
Constants under Calculation Specifications) . When 
factor 1 is a numeric literal less than seven char- 
acters long, or an alphameric literal less than five 
characters long, enter the literal constant as factor 
1. If the literal requires less than six columns, 
right-justify it (enter the units position in Column 
28), but do not use leading zeros. 
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A constant that is too long to be written on the 
calculation sheet as factor 1 can be used as a named 
constant. The entry in factor 1 (Columns 23-28) 
must be WORDxx. 


OP (Operation) + — X / C 

Column 29 can be used to identify the operation to be 
performed using the two factors. The entries and 
the operations they represent are; 



Entry on Specifications 

Punch in Card 

Operation 

Sheet in Column 29 

Column 29 

Plus 

+ 

12-zone 

Minus 

- 

11 -zone 

Multiplied by 

X 

0 and 7 

Divided by 

/ 

0 and 1 

Compare factor 2 
with factor 1 

c 

12 -zone and 3 


Plus and minus specifications on this sheet pro- 
vide for addition and subtraction operations upon 
data developed by the data specifications sheet or 
prior entries on the calculation specifications sheet. 
For compare operations, Factor 1 and Factor 2 
should be of the same type. Both Factor 1 and 
Factor 2 should be numeric or both should be alpha- 
betic (alphameric). If they differ in type, RPG will 
perform a numeric compare in which Factor 1 will 
be subtracted from Factor 2, and the resulting 
answer will be compared to zero. A zero result 
would indicate an equal condition. 

Factor 2 


Columns 30-35 are used for the name of the field 
(or the value of the constant) that is being specified 
as one of the following: multiplier, divisor, addend, 
subtrahend, or the field compared with Factor 1. 

The explanation given for Factor 1 applies to Factor 
2, except as follows. 

It is important that a divide operation be bypassed 
when the divisor (Factor 2) is either zero or blank. 
Bypassing such an unwanted operation can be accom- 
plished by using the ^ field status (Column 13) at the 
point where the divisor is defined on the data speci- 
fications sheet or the calculation specifications sheet. 
The divide operation will be bypassed when the result- 
ing condition associated with the Z status (either 
zero or blank) is sensed. 

Multiply or Divide Signs 


The RPG processor places the correct algebraic 
sign from a multiply or divide operation in the units 
position of the result field. For example, a negative 
Factor 1 multiplied by a positive Factor 2 will yield 
a negative result. 


A, S, 0, 0, and Blank 

(Add, Subtract, Reset-Add, Reset- Subtract, and 
Move) — 

+ 

Column 36 must contain an A, an S, 0 (12, 0), or 0 
(11, 0), depending upon whether the result of the cal- 
culation being specified by this line-entry is to be 
added to , subtracted from , reset added to , or reset 
subtracted from the previous contents of the field 
named in Columns 2-7 of this line-entry. If Column 
36 is left blank, the result will be moved to the field 
named in Columns 2-7. Figure 22 illustrates var- 
ious multiplication operations. Assume that FLDB 
and FLDC are specified in the data sheet, having 
field lengths of 004 and 002, respectively, and no 
decimals. Plus, minus, and divide operations can 
be similarly specified. An explanation of the entries 
in Figure 22 follows: 

1. The first line-entry specifies that the product of 
FLDB X FLDC be added to the contents of FLDA 
and that the sum be placed at FLDA. 

2. The second line specifies that the product of 
FLDB X FLDC be subtracted from the contents of 
FLDD and that the difference be placed at FLDD, 

3. The third line-entry specifies that the product of 
FLDB X FLDC be reset-added into FLDE. 

4. The fourth line specifies that the product of FLDB 
X FLDC be reset-subtracted into FLDF. 

5. The fifth line specifies that the product of FLDB 
XWORD03 be subtracted from the contents of 
FLDG and that the difference be placed at FLDG. 
WORD03 is the field name of a 9-position constant 
that must be defined on the format specifications 
sheet by a w- entry. 



Figure 22. Multiplication Specifications 


Figure 23 illustrates a means of obtaining pro- 
gressive totals. Note the absence of an entry in the 
factor 1 field and in the OP field (Colunrn 29). This 
is the explanation of the entries in Figure 23: 

1. The first line specifies that the field AMOUNT be 
added to the contents of TOTAMT and that the 
sum be placed at TOTAMT on a change in control 
field 1, 

2. The second line specifies that the field DISCNT 
be subtracted from the contents of TOTAMT and 
that the difference be placed at TOTAMT on a 
change in control field 1. 
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Figure 23. Progressive -Total Specifications 


Figure 24 illustrates two comparison specifica- 
tions. The first one compares factor 2, the numeric 
literal 12345, with factor 1, FLDNAM. FLDNAM 
must have been defined on either the data sheet or a 
prior entry on the calculation sheet. An equal result 
of the comparison can be referred to in other opera- 
tions as condition 07. The second line causes factor 
2, the alphameric literal 6AL5, to be compared with 
factor 1, TUBETP. An equal result of the compari- 
son can be referred to in other operations as con- 
dition 12, 
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Figure 24. Comparison Specifications 

Conditions 


Columns 37-45 can be used to specify a maximum of 
three conditions in an AND relation to govern whether 
the calculation specified is to be performed. The 
conditions that can be entered are any of the result- 
ing conditions previously defined on the input, data, 
and calculation specifications sheets as well as LC, 
F1-F6, SB-SD, and negations of each of these. For 
example, if one condition to be specified is no change 
in control field number 3 , the entry in Columns 
37-39 will be NF3. 

As previously mentioned in conjunction with 
Factor 2, it is necessary that a divide operation not 
be performed when the divisor is zero or blank. 

Tot/ Pet/ Cony 


Column 46 must contain the letter T, D, or C. The 
entry depends on whether the line-entry specifies a 
total, a detail, or an address- conversion calcula- 
tion. (See Conversion- Routine Specifications for 
using the C- entry, ) 

A total calculation is performed after the test for 
a control-field change is made, but before informa- 
tion is removed from the record in the input area. 


The record just read cannot, therefore, contribute 
to the results of a total-time calcfilation. A total 
calculation is similar to a group total on an IBM 407 
Accounting Machine application, where the card at 
the first reading station that initiates a control change 
does not contribute to group totals for the previous 
group, 

A detail calculation is performed after the test 
for a control-field change is made and after informa- 
tion is removed from the record in the input area. 

The record just read can, therefore, contribute to 
the results of a calculation specified as a detail-time 
calculation. 

When a detail calculation is to be performed for 
every record in the input file, the D in Column 46 
may be sufficient to condition the calculation. 

Selected detail calculations and all total calculations 
must be governed by specifications in Columns 37-45 
as well as T or D in column 46. 

Field Name of Remainder 


When the user needs the remainder from a divide 
operation (1 in Column 29), he should assign it a 
name . He does this by entering the name in Columns 
47-52 of the line-entry specifying the divide opera- 
tion. RPG then retains the remainder in the location 
thus named. It is subsequently available by this 
name to the user for other operations. One common 
use of the remainder from a divide operation occurs 
in address conversion for disk-storage applications , 
Frequently, the control data of each file record is 
divided by the range of disk addresses assigned to 
the file. The remainder is then used as the disk 
address for each record. (See Conversion Routine 
Specifications . ) 

Field Length of Remainder 


When the remainder of a divide operation is to be 
retained for further use, enter the length of the field 
in Columns 53-54. 

Page Number 

Columns 76-77 are used for page numbering. The 
numbers are punched in the cards from the page- 
number entry in the upper right-hand corner of the 
calculation specifications sheet. As previously 
mentioned, the sheets are numbered consecutively 
beginning with the spacing chart as page number 01. 

Card Number 

The first twenty lines of the sheet have preprinted 
card numbers (see Input Specifications Card Number ) . 
The cards punched from the calculation specifications 
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must be arranged in order by page number (Columns 
76-77) and card number (Columns 78-80). 

Constants 

RPG can use two general types of constants; literals 
and named constants. 

Literals 


2. Alphameric literals must be enclosed in @ 
symbols. 

Note; If a literal has the form of a numeric literal but is enclosed 
in @ symbols, it is treated as an alphameric literal. It cannot, then, 
be used for computation. 

The following are examples of alphameric literals: 
@ STOCK INVENTORY REPORT® 

@ JULY 2, 1964@ 

@ — 1 . 2 @ 


Constants whose actual values are entered in the 
appropriate specifications where they are required 
are known as literals. Literals are not specified by 
names. RPG can use two kinds of literals, numeric 
literals and alphameric literals. 

Numeric Literals: A numeric literal can consist of 
any combination of the numbers 0 through 9. One 
decimal symbol and/or one plus sign or one minus 
sign can also appear in a numeric literal. Numeric 
literals can be used for comparing to other numeric 
fields. 

Rules for Forming Numeric Literals: 

1. Blanks must not appear within a numeric literal. 

2. One sign and/or one decimal symbol can appear 
in a numeric literal. 

3. The sign, if present, must be the leftmost charac- 
ter. If a literal is unsigned, it is treated as a 
positive literal and will be given a sign by the 
RPG processor. 

4. The decimal symbol can appear anywhere in the 
literal except as the rightmost character. 

5. Numeric literals must not be enclosed in @ 
symbols. 

The following are examples of numeric literals. 

162534897 1625.34897 

+16253 +162.5 

1 -.1625 

+ 1 .1 

-1 -.0001 


Named Constants 

Constants to be used in RPG can be given names of 
the form WORDxx. In this form, xx can be any 
number from 01 through 99. Named constants to be 
used in computations must have the same form as 
numeric literals. Named constants not used in com- 
putations must have the form of alphameric literals. 
As explained under Format Specifications , named 
constants must be defined on the format sheet by a 
W-entry. 

Leaving ” Field Name" Blank 


Figure 25, which illustrates a withholding tax calcu- 
lation specification, shows how the field name (col- 
umns 2-7), its length (columns 8-10), and its deci- 
mal length (columns 11-12) can properly be left 
blank. In that figure, the problem is: 

Weekly withholding tax=[ gross pay —(tax class x 
13. 00)] X 18%. 
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Figure 25. Leaving Field Name and Length Blank 


Alphameric Literals: Any set of consecutive char- 
acters that is enclosed in @ symbols is treated as an 
alphameric literal. Alphameric literals cannot be 
used for computation . They can, however, be used 
for compare operations with alphabetic or alphameric 
fields and as output fields of reports. 

Rules for Forming Alphameric Literals: 

1. Any character in the IBM 1401, 1440, 1460 char- 
acter set except the@ symbol or the group-mark 
can be used in an alphameric literal. Blanks are 
treated as valid characters and can be used freely. 


The line-entries in Figure 25 perform the follow- 
ing operations at total-time followir^ a change in 
control field 1. 

1. The first line resets to zero the five-position field 
in core storage labeled WHTAX and adds to the 
WHTAX field the five-position amount, GROSS. 

2. The second line multiplies TAXCL by the literal 
13. 00, subtracts the product from the WHTAX 
field, and then tests the sign of WHTAX. If the 
sign is negative (meaning that the employee' s non- 
taxable income for the week exceeds his gross 
earnings), resulting-condition indicator 10 is set 
ON. 
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3. If WHTAX is not negative (resulting-condition in- 
dicator 10 is not ON), the third line multiplies 
the result of the previous calculation, WHTAX, 
by the literal . 18. It rounds the hundredths posi- 
tion of the product (to the nearest penny in this 
example), resets to zero the five position WHTAX 
field, and adds the five-position product to the 
WHTAX field. 

Decimal Alignment 

RPG provides for decimal alignment of computations. 
This will be accomplished when the resulting fields, 
as well as the data fields used as factors in the cal- 
culations, contain the appropriate specifications for 
field length and decimal length. Numeric literals 
that include a decimal symbol, when used as factors 
in computations, also permit RPG to perform deci- 
mal alignment. The same is true for constants 
named WORDxx that are used in computations 
(WORDxx defined in the form of numeric literals). 

Figure 26 shows four computations. These four 
calculation specifications are not related to one 
another. They serve only as examples illustrating 
decimal alignment. The first calculation specifica- 
tion divides TOTCST (of the form xxxxxx. xx) by 
UNITS (xxxxxx) to develop AVGCST (xx. xxx). The 
second calculation specification multiplies HOURS 
(xx. x) by RATE (x. xxx). Before the result field is 
placed in GROSS, a 5 is added to the thousands posi- 
tion which rounds GROSS (xxx. xx) to the nearest cent. 
The third calculation specification multiplies AMT 
(xxxx. xx) by the literal constant .02, producing 
DISCNT (—xxx. xx) rounded to the nearest hundredth. 
The fourth calculation specification subtracts 
WORD04 from FLDH (xxxxxx. xx), and subtracts this 
difference from FLDJ (xxxxxxxx. xx). WORD04 is a 
named constant, having the form of a numeric literal. 
For this example, assume that it is defined (by a 
W-entry; see Format Specifications) as 12345.67. 

Note: The data fields in the examples just given do not contain the 
decimal-symbol character. The illustrations indicate the decimal- 
symbol locations. Programs generated by RPG check the specified 
locations of decimal symbols to perform the necessary alignment of 
the factors used in computations. 

Conversion- Routine Specifications 

When the input-data file is contained in disk storage, 
the user can write his address-conversion routine on 
the RPG calculation specifications sheet. All such 
conversion-routine calculation entries must contain 
a C in Column 46 and must be grouped together con- 
secutively. The control data to be converted is 
placed by RPG in a field labeled CONTD. 

This label can be used as a factor in conversion. 

It should not, however, be defined on any of the 




Figure 26. Decimal Alignment 

specifications sheets. The field length is the same 
as that specified for the control-data field in a con- 
trol card for RPG. No specification should use the 
field name CONTD in such a way that the contents 
(the control data) are changed. The converted num- 
ber (that is, the disk address produced by the con- 
version routine) must be located in core storage in 
a field labeled CONVl. Neither of the labels CONTD 
or CONVl may be used as a field in the format 
specifications. 

If the user' s subroutine for converting control 
data to actual disk addresses has already been coded 
in Autocoder, it need not be recoded on the calcula- 
tion specifications sheet. RPG allows for an Auto- 
coder coded conversion routine to be inserted into 
the specifications deck. The steps to be followed in 
order to use this RPG feature are: 

1. Place a card containing a lozenge ( n ) in Column 1 
immediately after the last control card and before 
the first asterisk card. 

2. Place the conversion routine punched in Autocoder 
source card format immediately after the lozenge 
card. 

3. Place the first asterisk card after the conversion 
routine. 

4. Place the RPG specifications cards after the 
asterisk card as usual. 

These rules apply to the preparation of the user' s 
conversion routine cards. 

1. The first instruction of the conversion routine 
must be labeled CVTROO. 

2. The control data to be converted is placed by the 
object program in a field labeled CONTD. This 
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field must not be changed by the conversion 
routine. 

3. The address which is produced by the conversion 
routine must be placed in the field CONVl. 

4. Neither CONTD nor CONVl can be defined within 
the user's routine because these areas are defined 
by the RPG processor. 

5. The last instruction in the user's conversion rou- 
tine must branch to RETUl. 

Figure 27 shows an example of a conversion rou- 
tine written with other calculation specifications. 

For this example, assume these facts: 

• Input file consists of 5,000 records in IBM 1311 disk storage, from 
sector addresses 020,000 through 024,999. 

• Records are 100 characters long, unblocked. 

• The file is organized by the random method. 

• The control-data field is ten characters long. 

• The conversion technique used to assign disk addresses to the file 
records is to divide the control data by the range of disk addresses 
assigned to this file, and use the remainder as the basis for the 
address. 

Note: This technique, although assumed to be adequate for this 
file, is not necessarily the best one for every disk file. 



consisting only of the padding character. An equal 
resulting-condition would govern subsequent process- 
ing and output. 

In Figure 28, the 4-digit field CUSTNO is com- 
pared to four 9's, and condition 08 is set on an equal 
result. The calculation specified in the next line 
entry is performed only if 08 is not set. 
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Figure 28. Comparing CUSTNO to a Literal Field 


Under normal circumstances, the first padded 
record will force all control breaks. However, if 
the LC condition is used to bring out final totals, the 
presence of a padded record will not set LC ON. 
Condition LC will be turned ON by the detection of a 
tape mark for unlabelled tapes or lEOF (not lEOR) 
for labeled tapes. 

FORMAT SPECIFICATIONS 


Figure 27. Calculation Specifications, Including a 
Conversion Routine 

The three conversion-routine entries in Figure 27 
are explained next. 

1. The third line-entry places the control data in 
the field DND. 

2. The fourth line divides the control data by the 
range of addresses (5,000). This operation pro- 
duces a quotient and a remainder. The remain- 
der will be used in the next specification. There- 
fore it is assigned a label (REMAIN) and its 
length is specified (04). 

3. The fifth line adds the constant 020, 000 to the 
remainder. This is necessary to produce num- 
bers that are in the correct range of sector 
addresses (020,000-024,999). 

Processing Padded Tape Records 

When the user' s input file is on tape in blocked 
records, it is frequently necessary to bypass the 
padded records in the last block of the file. This 
can be accomplished by using an entry on the Calcu- 
lation Specifications sheet which compares an entry 
from the Data Specifications sheet to a literal field 


This form (Figure 29) is used to describe the lines 
and the fields constituting the output. The two main 
classifications of format specifications are line and 
field. 

The entries on this sheet pertaining to each line 
supply RPG with information such as the identifica- 
tion of the line, the form of the output (whether 
printed, punched, or written on disk or tape), the 
next line of output, carriage form spacing and skip- 
ping, the stacker into which punched output cards are 
to be selected, and the conditions imder which the 
line will become output. 

The entries on this sheet pertaining to the fields 
within a line supply the RPG with information such 
as field name, the rightmost position of the field in 
the output line, the conditions under which the field 
will be placed in the line prior to printing, punching, 
or writing on disk or tape, the values of constants, 
and information controlling zero suppression and 
editing. 

Much of the information for the entries on the 
format specifications sheet is taken from the spacing 
chart previously described. 

The entries for alphabetically designated lines 
must be written in the same order in which they are 
to appear on the report. 
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Format (for a Line) 

In Column 1 a letter must be entered that designates 
the entry as a format specification. An L in that 
column identifies the entry as a format specification 
for a line. Other entries for column 1 are described 
under Format ( for a Field) . 

Line 

Columns 2-4 identify the line being specified. Entries 
for these columns are taken from the spacing-chart 
entries that define the line by type, level, and num- 
ber. 

If a line is identified as HAA, write an H in col- 
umn 2, an A in column 3, and an A in column 4. If 
a line is identified as TAB, write a T in column 2, 
an A in column 3, and a B in column 4. 

The entry in column 2 specifies the type of the 
line. It must be H for a heading line, D for a detail 
line, or T for a total line. An important considera- 
tion in assigning type to a line is the difference be- 
tween a total line and a heading or detail line with 
regard to the record in the input area when the line 
is formed. The test for control-field changes, the 
performance of total-time calculations, and the 
formation of total lines precede the function of 
removing fields from the input record. Thus, an 
input record that causes a control change cannot 
contribute data to total lines that result from that 
control change. 

Detail calculations, heading lines, and detail 
lines follow the removal of fields from the record in 
input area. Thus that record can contribute to these 
calculations and lines. Therefore, naming a line 
according to type is not arbitrary, particularly with 
regard to total and detail lines. 


Output 

Column 5 must contain an alphabetic X if the line is 
to be printed; otherwise it is left blank. 

Column 6 must contain an alphabetic X if the line 
is to be punched into an output card; otherwise it is 
left blank. If the IBM 1440 has a sin^e 1442 reader- 
punch and the input file is in cards, then punched 
output will be contained in cards that served as 
input. 

If printed and pimched output of the same format 
are both desired, enter an X in Columns 5 and 6. 

Column 7 must contain a D if the line is to be 
written in disk storage. Enter a T in Column 7 if 
the line is to be written on magnetic tape. Otherwise, 
leave Column 7 blank. 


With blocked disk or tape output, KPG will place 
a record-mark in the last position of each logical 
record. 

Next Line 

Columns 8-10 define the next line to be printed, 
punched, written in disk storage, or written on 
magnetic tape. This field is intended for hier- 
archical related lines (Numeric Level Classification). 
Leave these columns blank when using Alphabetic 
Level Classification. 

Space 

In Columns 11-12 enter the number of additional 
line spaces to be taken before printing the line. The 
printer spaces one line automatically after a line is 
printed. Thus, an entry of 01 in Columns 11-12 in- 
dicates one space between lines of print, 02 indicates 
two spaces between lines of print, and 03 indicates 
three spaces between lines of print. 

In Columns 13-14, enter the number of spaces to 
be taken after a line is printed. The RPG processor 
assumes single spacing unless 02 or 03 is entered 
in Columns 13-14. 

Note; The entries 01, 02, 03, and blank are the only permissible 
entries for Columns 11-12 and 13-14. 

Skip 

In Columns 15-16 the entries 01-12 designate skipping 
to carriage tape channels 1-12, respectively, before 
printing the line. 

In Columns 17-18 entries 01-12 cause skipping to 
carriage tape channels 1-12, respectively, after 
printing the line. 

In preparing reports that require heading at the 
top of a page, format specifications should control 
form-skipping upon overflow. For a simple report 
without headings, no specifications are necessary to 
cause the forms to be advanced from the last printed 
line on a page to the first line of the next page. Thus, 
if report specifications provide no forms control for 
overflow, whenever the object program senses a 
pimch in carriage tape channel 12 while printing, it 
automatically causes skipping to channel 1. When 
the 12-punch in the carriage tape is sensed while 
printing a total line, all total lines whose output 
conditions are met are printed before overflow 
skipping occurs. 

When lines are to be printed at the bottom of a 
page, a 12 can be entered in Coliunns 15-16 to cause 
skipping to the normal carriage-overflow channel 
(channel 12). Such lines should usually be specified 
as total lines (T inColimm 1). 
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stacker 


1402 Card Eead-Punch 

In Column 19 the entry of a 4 or 8 causes the card 
being punched to be selected into the corresponding 
1402 pimch stacker. When no selection is desired, 
Column 19 must be left blank. 

1442 Card Read-Punch or 1444 Card Punch 

When the IBM 1442 Card Read-Pxmch is equipped 
with the selective stacker feature (or when the IBM 
1444 Card Punch is used), a 2 can be specified in 
Column 19. This causes the program to select the 
card being punched into the number 2 stacker pocket 
of the 1442 (or the 1444). When no selection is 
desired, leave Column 19 blank. 

Line Output Conditions 

A line will appear in the output only if line-output 
conditions for the given line are specified and 
fulfilled. 


Columns 20-28 can be used to specify a maximiun 
of three conditions imder which the line beii^ speci- 
fied is to become output. If two or three conditions 
are entered on one line-entry, they are considered in 
an and relation. The entries in these columns can be 
any of the resulting conditions defined on the other 
specifications sheets as well as OF (overflow), LC 
(last card), IP (first page), F1-F6 (a change in con- 
trol fields 1 throu^ 6), SB-SD (sense switches), 
and negations of any of these. 

Figure 30 shows that lines HAA and HBB are to 
be printed when condition 04 is met. If condition 04 
is defined on the Input Specifications sheet to be the 
presence in the input specification area of a record 
containing an L in column 80 and the condition is met, 
the heading lines HAA and HBB will print. 

All lines which are to be printed when condition 04 
is met wUl be printed in the order in which they ap- 
pear on the Format Specifications sheet. 

Condition IP (First Page) 

IP is a condition unique to the format specifications. 

It is fulfilled at the beginning of processing before 
any input records have been read. The purpose of 
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Figure 30. Conditioning a line to Print upon Reading a Specific Kind of Data Card 
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this condition is to cause the printii^ of a cover 
sheet or page heading lines on the first sheet. (The 
page heading lines might be printed as a result of 
OF on the following sheets.) Thus, lines that contain 
only constant information and that appear in the out- 
put before any input records are processed can be 
printed, pimched, or written in disk storage or on 
magnetic tape as a result of condition IP. Because 
this condition precedes any input record, no informa- 
tion from the input file can appear in a line condi- 
tioned by IP. Thus, a page heading line that con- 
tains a date from the first record in a file will not 
contain that date on the first sheet if the line is 
conditioned by IP. The line should be conditioned 
by the resulting-condition number that represents 
the date header record. 

Variable Line-Output Conditions 

Some applications require that var 5 ung conditions 
govern the appearance of a line in the output. A 
line that is governed by OR conditions must be 
specified with a separate line-entry for each OR 
condition. The first line-entry made in the normal 
manner will specify the first OR condition. Each 
succeeding line-entry consists of an L in column 1 
and the OR condition in columns 20-28 as required. 

For example, if a detail line called DAA is to be 
written in disk storage when any one of these three 
conditions is met: (1) condition 02 and not condition 
05; (2) condition 06; or (3) condition 09; the proper 
entries on the format specifications sheet are as 
shown in Figure 31. 



Figure 31, OR Line -Output Conditions 


It is often useful to print headings on a new sheet 
under several line output conditions. A new heading 
line mi^t be printed on either an OF or F3 condition, 
for example. However, these alternate conditions, 
OF and F3, might be met at the same time, and the 
same heading line would be printed twice. To avoid 
this situation, one alternate condition should exclude 
the other. For example, the first line entry can 
specify F3 and not OF (NOF in columns 23-25). The 
second line entry can specify OF alone. When both 
F3 and OF conditions exist, only the second alternate 
will be set. 


Suppression of Output from Run-Li Control Breaks 

Most reports include one or more total lines that are 
conditioned to print when a control break (F1-F6) 
occurs. Although it is usually proper to process 
heading lines at the beginning of a run, it is not 
desirable to have total lines produced as output. 
Unless steps are taken to suppress unwanted total 
lines (usually blank), these lines will be printed 
when the first input record is read but before any 
data has been extracted from it. 

The suggested way to suppress these total opera- 
tions is to govern their performance by the condition 
that a field is not blank and also a control-field 
change. If a blank status is specified for a field that 
will contain valid information only after the first 
record has been processed, total operations can be 
suppressed on the run-in when that field is blank. 

For example, in the Monthly E^qjense Wstribution 
Report (see Figure 53), resulting condition 03 is set 
when the field DEPNUM is blank. Total line TAA 
(See Figure 56) is conditioned to print when condition 
FI is met and condition 03 is not met. Total lines 
TBB and TCC work in the same manner. Once 
data is extracted from the first input record, the 
field DEPNUM will always contain significant non- 
blank data. 

Note: Columns 29-75 are left blank for line specifications (L in 
column 1). As explained later. Columns 76-80 pertain to both line 
and field specifications. 


Format (for a Field) 

In the description of a field within a line or the defi- 
nition of a constant. Column 1 contains an F, B, K, 
or W, 

The meaning of these entries is as follows: 

F identifies the entr^ as a field specification for a data field or a 
WORDxx that will not be blanked after it is placed in an output line. 
B identifies the entry as a field specification for a data field that will 
be blanked after it is placed in an output line. This entry causes 
processing similar to a read-out and reset total operation on an 
accounting machine. 

K identifies the entry as a field specifieajion that uses a literal 
constant. 

W identifies the entry as a field specification that defines a constant or 
an edit control-word. 

Note: Columns 2-28 are blank in a line-entry that specifies a field 
or a constant. 

Field Name 

State in Columns 29-34 the name of the field to be 
inserted in the line whose specification immediately 
precedes the field entry. An entry with a B in Col- 
umn 1 must contain a field name from Column 2-7 of 
the data or calculation specifications sheets. An F 
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entry in Column 1 can also contain a field named in 
the data or calculation specifications, or it can have 
a WORDxx defined by a W-entry elsewhere in the 
format specifications. All names must be left- 
justified. The entry of a K in Column 1 reqviires a 
blank field name. (A literal is not named. ) The 
entry of a W in that column must have a field name 
of the form WORDkx, where xx is a number in the 
range 00-99. W-entries are fully explained later 
in this section under Constant or Edit Control Word. 

Field End 

Place in Columns 35-37 the number of the rightmost 
position of the field in the output line as shown on the 
spacing chart. These columns are left blank for a 
W-entry. 

Field Output Conditions 

Columns 38-46 provide for a maximum of three con- 
ditions, considered in an AND relation, imder which 
the field being specified is to be placed in the output 
line. The same conditions that can govern line out- 
put are acceptable in these columns. If several con- 
ditions in an OR relation govern the output of the 
field, separate entries must be made, each giving 
all of the information required for the field as well 
as each OR condition. For example, if field A is to 
be included in an output line when sense switch C is 
off or when condition 16 is met, the appropriate for- 
mat specification entries are as shown in Figure 32. 



Figure 32. Output of a Field Governed by OR Conditions 


Z (Zero Suppress) 

A Z is entered in Column 47 to zero-suppress a field 
on the output line without using an edit control-word. 
This entry causes the object program to suppress 
high-order zeros and strip off the zone in the units 
position of the field. When an Edit Control Word is 
used, the Z entry in Column 47 should not be used. 

Constant or Edit Control Word 

A field within a line may consist of a constant. Some 
fields may require an edit control word. A constant, 
used elsewhere in another specification by its name, 
WORDxx, must be defined. In each of these cases. 


enter the constant or the edit control word in columns 
48-75, left-justified. 

Literal Constants as Output Fields 

Literal constants can be included as fields of output 
lines. They are specified: enter a K in Column 1, 
the proper Field End in columns 35-37, and the con- 
stant (either a numeric or an alphameric literal) in 
columns 48-75. Figure 33 shows how the alphameric 
literal, 2% DISC, is specified (line 110). Although 
not shown, a numeric literal can likewise be speci- 
fied. The difference between the specifications for 
numeric and alphameric literals is only in the form 
of each literal. (Each is explained in Constants im- 
der Calculation Specifications . ) 

Edit Control Word 

When an amount field is to be edited, the user can in- 
clude the edit control word in the same format speci- 
fication he writes for the field to be edited. In Figure 
33, line 120, the control word $bb,bb0.bbCR edits 
the field DISCNT to print $xx, xxx.xxCR. Note that 
the edit control word is written, starting in column 
48, in the form of an alphameric literal. If the 
Expanded Print Edit Special feature is available, a 
control word of the form $bb,bbb.bOCR may be used. 

Named Constant (WORDxx) 

A constant or an edit control word that is used only 
once should be specified as described previously. 
However, when a constant or an edit control word is 
to be used more than once, enter WORDxx (to avoid 
repetitious coding) in columns 48-53 each time it is 
required. Then, define WORDxx by a W-entry, as 
explained under Naming a Constant . Figure 33 
illustrates the use of one edit control word, 

WORDOl, to edit the two amount fields TOT AMT 
and NETAMT (see lines 090 and 150). Note in each 
line-entry that the name WORDOl is not enclosed in 
(©symbols. 

Naming a Constant 

As previously mentioned, both constants and edit 
control words can be used in calculation and format 
specifications by names of the form WORDxx. When 
so used, each constant and edit control word must 
be named (or defined) by a format specification. 

This specification must contain a W in Column 1, 
WORDxx in Columns 29-34, and the constant or the 
edit control word in Colunms 48-75. A constant 
defined as WORDxx that is to be used in computations 
must be written in the form of a numeric literal. For 
example, if WORD04 were the constant 12345. 67 to 
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be used as Factor 2 in a calculation specification 
(see Figure 26), the proper format specification 
would be as shown in Figure 34. Constants that are 
not to be used in computations, as well as all edit 
control words, must be written in the form of alpha- 
numeric literals. In Figure 33, the edit control 
word $bb, bbO. bb* (used twice by its name WORDOl) 
is defined as WORDOl on line 240. 
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Figure 34. Defining a Constant Used in a Computation 


Page Number 

Columns 76-77 are used for page numbering in both 
line and field specifications. The page-number entry 
is in the upper right-hand comer of the format sheet. 
The pages are numbered consecutively beginning 
with the spacing chart as page number 01. 

Card Number 

The first twenty lines of the sheet have preprinted 
card numbers in columns 78-80, as explained in this 
corresponding paragraph under Input Specifications. 

NUMERIC LEVEL CLASSIFICATION 

It was suggested under Classification of Lines that 
the user classify each line on his printer spacing 
chart, and, subsequently on his Format Specifications 
Sheet, by assigning to each heading, total, and detail 
line a unique pair of letters. These letters enable the 
user to quickly assign an identification to each line. 

However, there is another way of classifying 
lines which is available to the user. He may use 
numeric level classification. The following section 
describes numeric level classification. Included in 
this section are additional format specifications 
which are required when using numeric level classi- 
fication. Users who are familiar with numeric level 
classification may continue using it. Users who are 
writing new RPG programs will probably prefer 
alphabetic level classification. 

Three types of lines can appear on the user' s 
report: heading, detail, and total lines. Heading 
and detail lines can contain information from the 
record in the input area at the time when the lines 
are printed; total lines cannot. An input record can 
effect a control field change that causes total lines to 
be written, but that input record cannot contribute 


data to those lines. A detail line has a direct rela- 
tionship to input records. Most of the data in a 
detail line comes from the input record. A heading 
line usually contains constant information, although 
it can have some information from input records, 
including the record present at the time the line 
is assembled. 

The concept of line level, which is important to 
numeric level classification, is based upon the rela- 
tionship of a line to other lines. Heading or total 
lines that are independent of each other should be 
given alphabetic -level designations. Heading or total 
lines that are related in a hierarchy can be given 
numeric-level designations corresponding to their 
positions in the hierarchy. A hierarchical relation- 
ship can be likened to total operation on an account- 
ing machine, i. e. , major lines force minor and 
intermediate lines. The principle underlying a 
hierarchical relationship is that lines of higher level 
govern lines of lower level. 

Line "Level" Relationships 

Of the three t3qjes of report lines (H, D, and T), 
heading and total lines can be related in an estab- 
lished order or rank. Such lines, known as 
hierarchical lines , are assigned a number from 1 
through 8 as the second character of the line identi- 
fication code. This number represents the rank or 
level of a line in its relationship to other lines 
within the hierarchical structure. Heading and total 
lines in the lowest level must be assigned a level 
number of 1; the next higher level number assigned 
must be 2; then 3; and so on, through 8 for the 
higjiest level. 

For both heading and total lines that are given 
numeric level designations (that is, hierarchical 
heading and total lines) , there may be more than 
one print line that belongs to a given level. These 
lines should be numbered, beginning with the num- 
ber 1 for the first line of that level. For example, 
suppose that a report requires three heading lines; 
two of these should print on an intermediate control- 
field change, and the remaining one should print on 
a minor control-field change. In this example, the 
three heading lines would be assigned these line- 
identification codes: H21 and H22 (the first and 
second heading lines of the intermediate level), and 
Hll (the first heading line of the minor level — 
there is only one minor heading line in this example). 

Suppose that, in the foregoing example, there are 
five total lines that should print; two on a change in 
the intermediate control field and three on a change 
in the minor control field. These five total lines 
should be given these line-identification codes: Til, 
T12, and T13 (the first, second, and third total lines 
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of the minor level), and T21 and T22 (the first and 
second lines of the intermediate level). 

Heading lines in a hierarchy (identified by such 
numeric level designations as H21, H22, and Hll) 
are printed in this order; 

1. All the heading lines in the highest level, in line- 
number order. 

2. All the heading lines in the next lower level, in 
line-number order. 

3. And so on. The heading lines of the lowest level 
are printed last, in line-number order. 

In the previous example, the order of printing 
the heading lines (upon a change in the intermediate 
control field) is H21, H22, and Hll. 

Total lines in a hierarchy (identified by such 
numeric level designations as Til, T12, T13, T21, 
and T22) are printed in this order; 

1. All the total lines in the lowest level, in line- 
number order. 

2. All the total lines in the next higher level, in 
line-number order. 

3. And so on. The total lines in the highest level 
are printed last, in line-number order. 

In the previous example, the order of printing the 
total lines (upon a change in the intermediate control 
field) is Til, T12, T13, T21, and T22. 

Line-output conditions should be assigned only to 
the first line of each level that should print. Suc- 
ceeding lines of any niunbered level will follow the 
first line of that level. For example, condition FI 
should condition heading line Hll to print, but not 
H12. The reason is that when Hll is printed, H12 
will automatically follow, because it is the second 
line of level 1. 

Programs generated by RPG print report lines in 
this order; 

1. Alphabetic- Level Heading Lines 

Printed in the order of entry on the format specifications sheet 

2. Numeric-Level Heading Lines 

Printed in high-to-low-level order according to their places in the 
hierarchy. 

3. Detail Lines 

Printed in the order of entry on the format specifications sheet. 

4. Numeric -Level Total Lines 

Printed in low-to-high-level order according to their places in the 
hierarchy. 

5. Alphabetic -Level Total Lines 

Printed in the order of entry on the format specifications sheet. 

Hierarchical treatment is given only to numeric- 
level heading and total lines. 

When the object program is running, a total line 
with a numeric-level designation such as T3x will 
force Til and its subsequent lines, and T21 and its 
subsequent lines to come before it whenever the out- 
put conditions are fulfilled for T3x. 


Study of Figure 35 reveals a difference in the 
hierarchical relationships for total and heading lines. 
Total lines appear in ascending order by level; head- 
ing lines appear in descending order by level. 

When there is a single detail-line format in a 
report, that line should be given an alphabetic -level 
designation to reflect its independent status. Such 
is the case in Figure 35 in which the detail line is 
named DAA. Other applications might have any 
number of detail-line formats which, when they do 
not relate to one another, are classified alpha- 
betically by level. 

Note that the level of a line is not necessarily 
equal to the number of the control field with which 
the line is associated. For instance, a total or 
heading line of level three may not relate to control 
field three in the input data file. It is possible that 
level-one heading lines might relate to a change in 
control-field two. In some applications, lines with 
alphabetic -level designations might relate to control 
fields. Thus, even though six is the maximum num- 
ber of control fields that can be specified, there can 
be eight numeric levels for each t 3 qie of line 
specified. 

The line number permits scheduling lines within 
a level. In Figure 35 there are six heading lines in 
the highest level. That level is associated with 
department number. Whenever the department 
changes, the six heading lines composing level three 
print in line-number sequence within that level; that 
is, H31, H32, H33, H34, H35, and H36. Even 
though there is only one line in each of the lower 
levels of heading line in that report (H21 and Hll), 
the lines have numeric line-number designations 
because they are hierarchical. The same principle 
applies to the total lines. Til, T21, and T31, in 
the same report. Application of the line-number 
concept to hierarchical total lines corresponds to 
special programming on the IBM 407 Accounting 
Machine. For instance, four minor total lines 
could be named Til, T12, T13, and T14. 

Multiple-line-print (MLP) cards might cause 
three detail lines to print, and these lines could be 
named DAI, Da2, and DAS to reflect the place of 
each line in the sequence. Two final total lines in a 
report might well be named TCI and TC2. When 
assigning line numbers, always start with the 
number 1. 

Numeric-Level Format Specifications 

Format specifications for numeric-level classifica- 
tion closely follow those for alphabetic-level classi- 
fication, and reference must be made to the previous 
section dealing with format specifications. How- 
ever, three specifications are different. 
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Figure 35. Spacing Chart Using Numeric Level Classification 


IBM 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

IBM 407, 408, 409, 1403 AND 1404 PRINTER SPACING CHART 


Form X24-6436 
Printed in U. S. A. 


LINE DESCRIPTION FIELD HEADINGS'WORD MARKS 6 Lines Per Inch Prinlina ipon: 
















Line 


The entry in column 2 specifies the type of the line, 
as in alphabetic level classification. 

Column 3 specifies the level of the line. Column 
4 specifies the number of the line within a given 
level. When lines of a level are to be numbered, 
be sure to assign the number 1 to the first line. 

The entries on the format specifications sheet 
pertaining to lines must be in descending level- 
order for heading lines, and in ascending level- 
order for total lines. This is the normal order of 
printing related report lines. 

Next Line 


Columns 8-10 define the next line to be printed, 
punched, or written on tape or disk. This entry is 
made only if the next line specified in these columns 
should come unconditionally in the output after this 
line (the line being described in this entire line- 
entry), Otherwise columns 8-10 should be left blank. 
When a next line is specified in columns 8-10, that 
next line must be of the same type and level as the 
line calling for it. That is, columns 8-9 must be 
the same as columns 2-3. 


Line Output Conditions 


Columns 20-28 can be used to specify a maximum of 
three conditions under which the line being specified 
is to become output. If two or three conditions are 
entered on one line-entry, they are considered in an 
AND relation. The entries in these columns can be 
any of the resulting conditions defined on the other 
specifications sheets, as well as OF (overflow), LC 
(last card), IP (first page), F1-F6 (a change in con- 
trol fields 1 through 6), SB-SD (sense switches), 
and negations of any of these. If a line is referenced 


V./XU.XXJLXJ.O 


left blank. This is because its line-output conditions 
must be the same as those for the line that refer- 
enced it. 

A line will appear in the output only if; 


1. Line-output conditions for the given line are 
specified and fulfilled, or 

2. The line was specified as the next line of another 
line for which the output conditions are fulfilled, 
or 

3. The line is of lower level in a hierarchy than 

xxxxC v/x octlixL/ i^x vvxxx^^xl xiiC U. C4. 

conditions are fulfilled. 


To illustrate the first principle, in Figure 36 the 
line Hll is specified to be printed when condition 04 
is met. 


Condition 04 (defined on the Input Specifications 
Sheet) is set when a record containing and L in column 
80 is present. The first heading line will be printed 
when that record is present. 

The second principle is illustrated in Figure 37 , 
Heading line H12 will print only after line Hll prints, 
because the format specification of Hll contains a 
next line entry of H12. Note that no output conditions 
are specified for H12. 

The third principle with regard to line-output 
conditions relates to the specification of hierarchies 
of lines. Lines related in a hierarchy must be of the 
same type and must have numerical-level designa- 
tions that reflect their relative positions within the 
hierarchy. The processing principle underlying a 
hierarchical relationship is that lines of a higher 
level govern lines of lower level. Thus, when the 
output conditions are fulfilled for T3x lines, the 
object program will force Til and its next lines, 
and T21 and its next lines to come before the T3x 
lines in the output without regard for the line- output 
conditions of the Tlx and T2x lines. (See Figure 35.) 

Furthermore, multiple lines within one level in 
a hierarchy must be referenced by next line desig- 
nations rather than individual line-output conditions 
whenever there is a higher level of lines in the 
hierarchy. Thus, H21 must call for H22 as a next 
line and H22 must call for H23 as a next line to 
ensure that all three will be present in the output 
when H3x lines precede them. 

SUMMARY 

This section of the bulletin presents a summary of 
the four preceding sections. A brief explanation of 
the four RPG specifications sheets is presented. 

Summary of Input Specifications 


From knowledge of the records in the input data file, 
the user writes the input specifications for the 
Report Program Generator: 


COLUMNS NAME EXPLANATION 

1 C, D, or T The medium (card, disk, or tape) used for 

input for every line-entry that specifies 
a record type. If any records must be 
in a fixed sequence within a control 
group, enter an S on the line below the 
entry for the last sequential record -type. 

2—3 Num 6 riC“S 6 cjusnc 0 order If a fixed 

record-sequence within a control group 
is required; two alphabetic letters if a 
fixed sequence within a control group is 
not required or if there is only one 
record-type per control group. Enter 
the letters CF on the line below the last 
line -entry for sequential record -control. 
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COLUMNS NAME 
4 Number 


5 Option 


6-8 Position 


9 Not 


10 Z/D/C 


11 


Code 


EXPLANATION 

1 if only one sequential record per con- 
trol group should be present, or N if 
more than , one is permitted. Blank for 
non-sequential records. If there is an 
SCF entry in Columns 1-3 of this line- 
entry, enter the control-field number 
that controls the sequencing. 

X if the presence of this sequential 
record-type is optional; blank if its 
presence is required. Blank for non- 
sequential records. 

Location within the record of the record- 
code character whose presence or ab- 
sence identifies this record-type. 
Otherwise blank. 

N if the absence of the record-code 
character identifies this record-type; 
blank if the presence of the character 
identifies this record -type. Otherwise 
blank. 

Z, D, or C according to whether the zone 
portion, digit portion, or the full char- 
acter of the code specified in column 11 
of this line-entry is to be used to identify 
this record-type. Otherwise blank. 

The record-code character whose pres- 
ence or absence in a record uniquely 


COLUMNS 

NAME 

EXPLANATION 



identifies the record. Any valid letter, 
number, or special character (including 
blank) can be used. Otherwise blank. 

12-41 

(Other 

Codes) 

Five other record-codes can be specified 
for a record-type, each in the same 
manner as described for the first record- 
code in Columns 6-11. 

42-43 

Resulting 

Condition 

A two-digit number to represent the 
presence in the input area of this record 
type. 

44-46 

End 

The location in the record of the units 
position of control field 1 (the most 
minor control field). 

47-48 

Length 

Length of control field 1. 

49-73 

(Other 

Control 

Fields) 

Five other control fields can be speci- 
fied for this record-type, in ascending 
order of significance from left to right. 

74-75 

(Blank) 

Must not be used. 

76-77 

Page 

Page number of this specifications sheet, 
located in the upper right-hand corner 
of the sheet. 

78-80 

Card 

Number 

The first 20 lines on each sheet are 
prenumbered. 
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Figure 37. Conditioning Lines to be Used as CXitput 


Summary of Data Specifications 

From the spacing chart and the input-record formats 
(see Figure 38) the user (1) assigns an alphabetic 
field- name, no longer than six characters, to each 
data field; and (2) determines the source of each 
field named. The four field sources are input 
records, page number, serial numbers, and record- 
count numbers. 

The names assigned to data fields permit refer- 
ence to those fields in processing the report. There- 
fore, every data field used in processing must be 
assigned a unique field name. The source or 
sources of the field also must be defined. 

On the data specifications sheet the user enters 
the following information about each field of data: 

COLUMNS NAME EXPLANATION 

1 D Always a D. 


Note; If more than three sources are specified for one field name, 
fill out Columns 2-21 of the first card. Columns 2-21 of the re- 
maining cards for the field name may be left blank. 


2-7 

Field 

Name 

Data field name. 

8-10 

Length 

Data field length, unedited. 

11-12 

Decimal 

Length 

Number of decimal positions in data 
field. For numeric fields with no deci- 
mals, enter 00. For alphabetic or 
alphameric fields, leave blank. 

13, 16, 
19 

Status 

B, Z, N, or P (representing the status of 
the data field) in one, two or all three of 
these columns if a status is to be 
established. Otherwise, blank. 

14-15, 

17-18, 

20-21 

Resulting 

Condition 

Used only in conjunction with the status 
columns. A unique two-digit number 
must represent each status specified. 

22-38 

(First 
source of 
field) 

Information for the first source of the 
data field. 

22-24 

Field 

Source 

One of six possible sources; Cxx, Dxx, 
Txx, PAG, SER, or RCT. 


COLUMNS 

NAME 

EXPLANATION 

25 

Numeric 

N to remove zone information from all 
positions of the source field except the 
units. M to convert from a single- 
character representation of month to the 
two-digit representation. Otherwise, 
blank. 

26-28 

Field 

End 

Location of the units position of the field 
in the source record. Blank if source is 
PAG, SER, or RCT. 

29-31 

Field 

Length 

Length of the source field if different 
from the data -field length. For a month- 
field conversion entry (M in Column 25), 
the characters used in the source field 
that represent the months of October, 
November, and December. Otherwise, 
blank. 

32 

Operation 

+ - 

Blank, A, S, 0, 0, D, and Y to describe 
the operation to be performed upon the 
source field. After the operation, the 
result is located in the data field. 

33-35, 

36-38 

Cond. 

One or two conditions to govern the 
occurrence of the operation specified in 
Column 32. If the operation is to be per- 
formed unconditionally, these columns 
are blank. Permissible entries are SB, 
SC, SD, F1-F6, resulting-condition num- 
bers from the input sheet, resulting- 
condition numbers from other lines of the 
data sheet, and negations (an N in 
Columns 33 or 36) of these conditions. 

39-55, 

56-72 

(Other 

field 

sources) 

Information for the second and third field 
sources of the data field, if applicable. 
The explanation of the columns for the 
first source applies to the corresponding 
columns of the second and third sources. 

73-75 

(Blank) 

Must not be used. 

76-77 

Page 

Page number, located in the upper right- 
hand comer of the sheet. 

78-80 

Card 

Number 

Card Number. 


Figure 39 shows the data specifications for the 
Monthly Expense Distribution Report. 

Summary of Calculation Specifications 

After completing the data specifications sheet, the 
user can determine the data field calculations that 
are yet to be specified. Figure 40 shows three 
calculations that have not yet been specified. These 
three entries calculate the data AMTACT, AMTDEP, 
and FINAMT. These total calculations involve add- 
ing of a field that was developed by the data 
specifications. 
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IBM 


LINE DESCftimON 


) HEADINGS/WORD 


INTERNATIONAL aUSINESS MACHINES CORPORATION 

IBM 407, 408, 409, 1403 AND 1404 PRINTER SPACING CHART 

6 lines Per Inch 



DATE PAGENO INVNUM GENNUM SUBNUM DEPNUM MONTH DAY AMOUNT TOTAMT 



C r AMTACT 
J AMTDEP 
[ FINAMT 

‘(Specify on 
Calculation 
Specifications 
Sheet) 


CBB (4-punch in 
column 80) 


CAA (no 4-punch ir 
column 80) 


Figure 38. Assigning Data Field Names and Determining Their Source 
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Figure 39. Data Specifications for Monthly Expense Distribution Report 


i^Kict Monthly Expense Distribution S ot. 

Progromimd by 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM 1401 - 1440- 1460 



Figure 40. Calculation Specifications for Monthly Expense Distribution Report 


Having determined the calculation specifications 
that are required, the user makes the following 
entries on the calculation specifications sheet: 

COLUMNS NAME EXPLANATION 


COLL'MNS NAME EXPLANATION 


15-16, 

18-19, 

21-22 


Resulting Used only in conjunction with the status 

Condition Columns 14, 17, and 20. A unique two- 

digit number represents each status 
specified. 


1 


2-7 


8-10 


A 

Always an A. 

23-28 

Factor 1 

Either the field name or the literal that 

Field 

Name 

Name to identify the data field that will 
contain the result of this calculation, 
with two exceptions. It is blank if the 
iiiie-eiiti'y Is a uomparisoii Specification 
(C in Column 29), or the result is to be 



is factor 1. The field name must have 
been specified on the data specifications 
sheet, in a prior entry on the calculation 
specifications sheet, or in a W-entry on 
a format specifications sheet. 


contained in the same data field as in a 
preceding line -entry. 

29 

OP 

Operation to be performed using the two 
factors. Addition, subtraction, multipli- 

Field 

Length 

Unedited data-field length. 



cation, division, and comparison are 
represented by +, X, /, and C. 


11-12 


13 


14; 17, 
20 ’ 


30-35 

Decimal Number of decimal positions in the field. 

Length For numeric fields with no decimals, 

enter 00. For alphabetic or alphameric 
fields, leave blank. 36 

Half Enter an X to half -adjust the result of a 

Adjust calculation. 

Stcitus D, N, P, U, E, H, or L in ons, two, or 

all three of these columns to establish a 
field status. The entries H, L, and E can 
be used only if the object program is to 
be executed on a system equipped with 37-45 

the high -low -equal compare special 
feature. Otherwise blank. 


Factor 2 Either the field name or the literal that 
is factor 2. 


+ — + - 

A, S, 0, 0, A, S, 0, 0, or blank depending upon 
or whether (1) the result of a two-factor 

Blank calculation is to be added, subtracted, 

reset -added, reset-subtracted, or moved 
into the data field specified in columns 
f ^ iO LU uc auueu, 

subtracted, reset -added, reset-subtracted 
or moved into the data field. 


Condition Conditions that will govern the per- 
formance of the calculation. Blank if 
performance is to be unconditional. 
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COLUMNS 

NAME 

EXPLANATION 



Permissible entries: all resulting- 
condition numbers defined on the input, 
data, and prior entries of the calculation 
specifications sheets, as well as LC, Fl- 
F6, SB-SD, and also negations of all of 
the foregoing conditions. 

46 

Tot/ 

Det/ 

Conv 

T when the calculation is to be performed 
at total-time, D when the calculation is to 
be performed at detail -time, and C for a 
conversion-routine calculation. 

This column must not be left blank. 

47-52 

Remainder 

Name 

When using the remainder from a divide 
operation, enter the name assigned to it. 

53-54 

Length 

Enter the length of the remainder field, 
if used. 

55-75 

(Blank) 

Must not be used. 

76-77 

Page 

Page number, located in the upper right- 
hand corner of the sheet. 

78-80 

Card 

Number 

Card number. 


Figure 40 shows the calculation specifications for 
the Monthly Expense Distribution Report. 

Summary of Format Specifications 

Having completed the spacing chart showing the 
layout of the desired lines and the input, data, and 
calculation (if required) sheets, the user writes the 
format specifications for the output lines. 

The following general rules govern the order of 
the entries on the format sheet: 

1. The first entry must be a format specification 
for a line. 

2. An entry made for a given line must be followed 
by entries for each field that must appear in that 
line. 

3. Entries for lines should be specified in the order 
in which the lines must appear in the output. 


The following is a summary of entries on the 
format specifications sheet. 


COLUMNS 

NAME 

EXPLANATION 

1 

Format 

Letter (L, F, B, or W) to identify the 
line-entry as a format specification. 

Columns 2- 

-28 apply to line-specification entries only. 

2-4 

Line 

Line-identification code for this line 
(taken from the spacing chart). 

5 

Print 

X if this line is to be printed. 

6 

Punch 

X if this line is to be punched. 

7 

Disk/Tape 

D if this line is to be written in disk 
storage. T if the line is to be written on 
magnetic tape. 


COLUMNS 

NAME 

EXPLANATION 

8-10 

Next 

Line 

Alphabetic Level Classification leave 
these columns blank. Numeric Level 
Classification contains the next line to be 
printed, punched, written on tape or 
disk. The next line must be of the same 
type and level as the line calling for it. 

11-12 

Space 

Before 

Numbers 01, 02, or 03 for single, double, 
or triple line-spacing before printing 
this line. 

13-14 

Space 

After 

Same as Columns 11-12, except for 
spacing after printing. 

15-16 

Skip 

Before 

01-12 for skipping to carriage-tape 
channel 1-12 before printing. 

17-18 

Skip 

After 

Same as Columns 15-16, except for 
skipping after printing. 

19 

Stacker 

1402 CARD READ-PUNCH 

Punch 4 or 8 to select the card being 

punched into either the 4 or 8 punch- 

stacker pocket. Blank when not 

selecting. 



1442 CARD READ-PUNCH 
1444 CARD PUNCH 

Punch 2 to select the card representing 
this line into the number 2 punch-stacker 
pocket. Blank when not selecting. 

20-22 

Line 

Output 

Condition 

First condition to govern the appearance 
in the output of this line. The following 
can be entered: any resulting-condition 
number defined on the input, data, and 
calculation sheets; OF, LC, IP, F1-F6, 
SB-SD, and negations of these. 

23-28 

(Two other 
conditions) 

Two other conditions to govern the ap- 
pearance in the output of this line. 


Output conditions for a given line are 
considered in an and relation. A line 
will be used as output only if: (1) its 
line-output conditions are specified and 
fulfilled, or (2) the line is specified as the 
next line in the L -entry of the preceding 
line, and that preceding line’s output con- 
ditions are fulfilled, or (3) the line is of a 
lower level in a hierarchy than another 
line of the same type for which the output 
conditions are fulfilled. 

Columns 29-75 pertain to field specifications only. 

29-34 Field If the field is not a constant, the name of 

Name the field. That name must appear in 

Columns 2-7 of either the data or cal- 
culation sheet or be a WORDxx. If the 
field is a constant defined by a W-entry, 
the name is WORDxx. If the field is a 
constant not defined as WORDxx, these 
columns are blank. 


35-37 Field Print position of the units position of the 

End field. Blank for a W-entry. 

38-40 Field First condition to govern the inclusion of 

Output the field in the output line. The same 

Condition conditions are accepted here as are ac- 

cepted in Columns 20-22. 
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COLUMNS 

NAME 

EXPLANATION 

COLUMNS 

NAME 

EXPLANATION 

41-46 

(Two 

Two other conditions with the same 

48-75 

Constant 

Either a constant (numeric or alpha- 


other 

function as the first condition in Col- 


or Edit 

meric) or an edit control word that is 


conditions) 

umns 38-40. The field-output conditions 


Control 

being used or defined. 



for a given field are considered in an 


Word 




and relation. If a field must be included 
unconditionally in an output line, 

76-77 

Page 

Page number of this specifications sheet, 



Columns 38-46 are blank. 



located in the upper right-hand corner. 

47 

Zero 

Z to zero-suppress a field without using 

78-80 

Card 

The first twenty lines of each sheet are 


Suppress 

an edit control-word. 


Number 

prenumbered. 
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PROCESSING ORDER OF DISK INPUT RECORDS 


If the user's input file is contained in disk storage, 
he must specify in his control cards one of three 
methods (or modes) by which the input file is organ- 
ized. The ways that the user can specify these 
modes (consecutive , random , and control-sequential ) 
are explained in this section under those headings. 

PROCESSING-ORDER RECORDS 

In addition to specifying the mode by which the input 
file is organized, the user must also specify the 
order in which his input file will be processed. He 
provides a Processing Order Record (POR) file that 
defines the order in which the input file (consecutive, 
random, or control- sequential) will be processed. 
POR files can be contained in cards, tape, or disk. 

Consider a card input file rather than a disk input 
file. The order in which records are processed is 
determined by the order, or the sequence, of the 
cards. Thus, the processing order for a card file 
is usually consecutive by card record. 

Now consider an input file in disk storage. 

Assume that the first record is 100-characters and 
is located at address A and that the last record is 
located at address B. One processing order that 
can be easily used is consecutive by disk address, 
from A to B. In this case, a starting address (A) is 
given, the record at that address is retrieved, and 
the record is processed. The starting address is 
increased by 1, and the record at that address is 
retrieved and processed. This procedure continues 
until the record stored at the ending address (B) has 
been retrieved and processed. All that is required 
to specify the processing order in this case is two 
disk addresses— a lower limit (starting) and an upper 
limit (ending) address. Processing takes place by 
using these two addresses as limits for the applica- 
tion. 

Another way to process the same disk file is by 
using a series (or list) of disk addresses to deter- 
mine the order of processing the file records. For 
example, the list might be a deck of cards. Each 
card contains the address of a record to be proc- 
essed. The order in which the addresses appear in 
the list determines the processing order. 

In both methods of controlling the processing 
order of disk records just mentioned, disk addresses 
were used. However, in those cases where the 
organization of the file provides for it, control data 
can be used as the basis for retrieval of disk records. 

Control data is a fixed field within all records of 
a file (for example, item number or account number) 


which can be converted, by using a conversion 
routine supplied by the user, to the disk address of 
the record to which it belongs. The field can be a 
maximum of 30 locations. See Figure 27. The 
user's control data has been placed in the field 
labelled CONTD. The calculations shown in lines 
3-5 represent the user's conversion routine. 

Thus, processing order records (POR's) specify 
the exact way in which a disk input data file will be 
processed. The following section describes the 
formats in which card, tape, or disk POR's may be 
written. 

CARD POR FILES 

A card processing order record (POR) file may be 
used for consecutive, random, or control-sequential 
modes. Card POR files may be in three formats: 
one-per- record , spread , or processing limits. 

One-Per-Record 

This format can be used only with random processing 
of a disk input file. Each card contains one disk 
address or one control-data field, which can be lo- 
cated an 5 Twhere in the card. Thus, there is one card 
associated with each record to be processed. 

If control data is used m the card, the user must 
provide a conversion routine. 

Spread 

These cards can only be used with random processing. 
Each card contains two or more disk addresses or 
control-data fields in the processing order. If con- 
trol data is used in the card, the user must provide 
a conversion routine. 

Processing-limits 

A POR file of cards in this format may be used with 
either the consecutive or control-sequential mode of 
processing. 

If used with consecutive processing, each card 
must contain either the lower and upper limits of the 
disk area or two fields of control data which may be 
converted to these limits by the user's conversion 
routine. 

If used with control-sequential processing, each 
processing-limits card must contain the upper and 
lower limits of the disk area to be processed. 
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TAPE POR FILES 

A tape POR file may be used only for random proc- 
essing. Tape POR files may be in two formats: 
one-per-record or spread. 

One-Per-Record 

Each tape record contains one disk address or con- 
trol-data field, which can be located anywhere on the 
tape record. A user's conversion routine must be 
provided if the tape record contains a control-data 
field. 

Spread 

Each tape record contains two or more disk addresses 
or control-data fields in the processing order. If 
control data is used on the tape record, the user 
must provide a conversion routine. 

DISK POR FILES 

A disk POR file may be used only for random proc- 
essing. Disk POR files may be in two formats: one- 
per-record and spread. 

One-Per-Record 

Each disk POR record contains one control-data field 
Thus, one disk record is associated with each input 
disk record to be processed. If control data is used 
on disk records, the user must provide a conversion 
routine. 

Spread 

Each disk POR record contains two or more disk 
EuarBSScS Or COIitrOl dutE fiSlds ili the prOCeSSillg 

order. If control-data is used, the iiser must pro- 
vide a conversion routine. 

POR-File Limits Card 

Whenever the user puts his POR file on disk, he 
must provide the object program with the starting 
and ending disk sector addresses in a POR File 
Limits card. The POR File Limits Card is punched: 

Columns Contents Explanation 

1-6 XXXXXX Starting address of the POR file. 

7-12 XXXXXX Ending address of the POR file. 

(If the ending address is unknown, enter 
the maximum expected limit. The lEOF 
trailer will indicate the end of the 
POR file.) 


CONSECUTIVE MODE 

If the user's disk input file is organized by a consec- 
utive method, (as in Figure 41) his POR file must be 
contained in cards in the processing limits format. 
Each card contains two fields. Each card contains 
either the lower limit (the starting field) and the 
upper limit (the terminal field) of the disk input area, 
or each card contains two fields of control-data which 
may be converted to these limits by the user's con- 
version routine. If the exact upper limit is unknown, 
the user enters the maximum expected limit. End- 
of-Job will be reached when the lEOF trailer is sensed 
on the disk. Each limits card, then, represents a 
series of records which are retrieved and processed 
consecutively by disk addresses or by control data. 

When processing consecutively by disk addresses, 
the program gets the first address from the starting 
field of the first processing limits card. To do this 
for 100-character records, the program increases, 
by 1, the number associated with the logical record 
within the block. The second record is then selected 
and processed. This operation continues until the 
record represented by the address contained in the 
terminal field of the first processing limits card has 
been processed or the lEOF trailer has been sensed. 
If there are other limits cards, processing continues 
in the same way, until all the records, thus repre- 
sented, have been processed. 

When processing consecutively by control-data, 
the program gets the record associated with the 
starting field from the processing-limits card. After 
the first record has been processed, the program 
adds 1 to the first control-data field and then gets 
the record associated with the new control field. 
Processing continues until the record associated 
with the control data from the last terminal field of 
the processing-limits cards has been processed. 

RANDOM MODE 

To process a disk file in the random mode, the user 
supplies either the control data or the disk addresses 
for each disk record to be processed. When he 
arranges the order of control-data or disk addresses 
that make up his processing-order records , he de- 
fines the order for processing his disk file. 

POR's can be contained in cards, tape, or disk. 
However, for a specific program the POR file must 
be contained in only one medium. 

POR's in Cards 

In cards, the POR's can be in two formats: one-per- 
record and spread. Figure 42 shows a POR file in 
the one-per-record format. Each card contains one 
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Disk Input File 



Records of the disk input file are 100 characters long, unblocked. 

Record Processing Order: 

000000 

000001 

000002 


000074 

000075 

Read next processing-order card 
000100 
000101 
etc. 


Control Data 
10000000 
10000001 
10000002 

10000024 

10000025 


Converted 
Disk Address 
000000 
000002 
000004 

000048 

000050 


Record Processing Order: 

000000 

000002 

000004 

000048 

000050 

Read next processing-order card 
etc. 



Processing-Order File. Each card contains control data that must be 
converted to disk addresses. 

Records of the disk input file are 200 characters long, unblocked. 


Figure 41. Consecutive Processing 
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disk address or one control -data field, which can be 
located an 5 rwhere in the card. 

Any number of characters can precede each 
record's address or control-data, whichever is used. 
For a specific program, however, this number must 
remain fixed. 

When disk addresses are used, the field length is 
6 positions for an imblocked disk file, 7 positions for 
a blocked disk file (with a blocking factor between 2 
and 10), and 8 positions for a blocked disk file with a 
blocking factor greater than 10. 

Figure 43 shows a card FOR file in the spread 
format. Each card contains two or more disk 
addresses or control-data fields (up to some maxi- 
mum number). In Figure 43, this example shows 
eight columns between the first and second disk 
address or control-field, eight columns between the 
second and third, and so on, for the remainder of 
the card. Any number of characters can precede the 
first record's disk address or control-data in each 
card. For a specific program, this number must 
remain fixed. 

Any spread card can contain fewer addresses or 
control data field than the maximum number. How- 
ever, all fields to the right of the last one used must 
be blank (see the second card in Figure 43). 


POR's on Disk 

RPG can use POR's for random files that are stored 
in either IBM 1301 or 1311 disk storage. This is 
true regardless of which kind of disk storage (1301 
or 1311) contains the input or output data file. 

Ehsk POR's can be in two formats: one-per- 
record (Figure 44) and spread (Figure 45). Each 
POR in disk storage can contain either one data 
record's address or a control-data field (up to some 
maximum as shown in Figure 45). 

POR's can be blocked with as many as ten records 
per block. Records can be up to 900 characters in 
length. The blocks can be of any length from 100 to 
1,000 characters, in multiples of 100 characters. 

A spread POR can contain less than the maximum 
number of addresses or control-data fields, pro- 
vided that all fields to the right of the last one used 
are left blank. As an example , note the third pro- 
cessing-order record in Figure 45. Any number of 
characters can precede, as well as follow, each 
address or control data field. Any number of 
characters can precede the first data record's 
address or control-data in each spread POR record 
(colunons 1-20 in Figure 45). 

When disk addresses are used, the field length is 
6 positions for an unblocked disk file, 7 positions 
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X X X X X X 



X X X X X X 

(First Record's 
Disk Address 



(2nd Record's 
Disk Address 

or 

Control Data) 



or 

Control Data) 

6 11 

12 

19 

20 25 



X X X X X X 


(5th Record's 
Disk Address 


or 

Control Data) 


62 67 

68 


POR CONTROL CARD INFORMATION 

Whether Control Data is Used, 

Whether Conversion is Required. 

Input Medium of Processing-Order File Card 

Processing-Order Mode Random 

Maximum No. of Addr^ses or Control-Data 
Fields per Card 5 


Distance Between Fields 


Figure 43. Processing-Order Records in Spread-Card Format 


Units-Position of First Field- 


Length of Disk Addresses or Control 
Data Field 6 



First 

-Processing-Order Record- 


(First Record's 
Disk Address 


Control Data) 


Second 

-Processing-Order Record- 


Third 

Processing-Order Record- 




XXXXXX 


(3rd Record's 
Disk Address 


or 

Control Data) 

4 

1 

5 0 



POR CONTROI -CARD INFORMATION: 

Disk Drive Number for Processing-Order File 


Record Length 100 

Whether Control Data is Used. 

Whether Conversion is Required. 

Input Medium of Processing-Order File Disk 


Units-Position of First Field 


Length of Disk Addresses or Control-Data 
Field 


Processing-Order Mode 


Figure 44. Fixed-Length Processing -Order Records in Disk Storage (one-per-record) 


















First Processing-Order Record- 


, 

[1 

\^2 

90 

22 

12 

X X X X X X 
(First Record's 
Disk Address 
or 

Control Data) 

2 2 

3 8 

23 

90 

X X X X X X 
(2nd R«:ord's 
Disk Address 
or 

Control DottO 

3 3 

1 6 

33 

78 

X x| 
(3rd ) 
Disk/| 

Cont I 

3 4/ 

9 0\ 


9 9 
3 4 

X X X X X X 
( 8 th Record's 
Did< Address 
or 

Control Data) 

1 

9 0 

5 0 

I- v; 

This informaMon applies to the first 8 data records. 


•Third Processing-Order Record 


1 



X X X X X X 


X X X X X X 


nr 



j 



(17th Record's 


(18th Record's 


(\ 



/ 

' 



Disk Address 


Disk Address 


Blor^ 


Bionk 




or 


or 


I 



/ 



Control Data) 


Control Data) 





) 

12 

22 

2 

2 

23 

3 3 

33 

3 M 

99 

1 

9 0 

12 / 

90 

12 

3 

8 

90 

1 6 

78 

9. 

34 

5 0 


-This information applies to the next two data records. 


Second Processii^-Order Record 


1 r 


X X X X X X 


X X X X X X 


X A/x 


X X X X X X 

j j 


(9th Record's 


(10th Record's 


( ( 


(16th Record's 

{ { 


Disk Address 


Disk Address 


\\ 


Disk Address 

\ \ 


or 


or 


1 j 


or 

/ 


Control Data) 


Control Data) 


jl 


Control Data) 

JJ 1 2 

22 

2 2 

2 3 

3 3 

3 3 

3 /y 

9 9 

9 0 

12((9 0 

l _2 

3 8 

9_0 

1 6 

LI 

? \{_ 

3 4 

5 0 


This information applies to the second 8 data records. 


POR CONTROL-CARD INFORMATION 
Disk Drive Number for Processir>g-Order File 

Processing-Order Record Length — — --100 

Whether Control Data is Used. 

Processing-Order Mode. - — Random 

\Miether Conversion is Required, 

Ir^ut Medium of Processing-Order File — - -- -- -- - — - [>|sk 

Units-Position of First Field 28 

Length of Address or Control -Data Field -------^ 

Maximum No. of Addresses or Control -Data Field per 
Processing -Order Record — — g 

Distc^e Between Fields - -- — - - — - -- -- — - -- _ 3 


Figure 45. Fixed-Length, Spread Processing -Order Records in Disk Storage 


for a blocked disk file (with a blocking factor be- 
tween 2 and 10), and 8 positions for a blocked disk 
file with a blocking factor greater than 10 or when 
using the IBM Sort 5 or Sort 6 programs. 

The IBM 1401 Sort 6 program or the IBM 1440 
Sort 5 program produces a sorted tag table in disk 
storage during one of its phases of operation. This 
table contains the 8-digit modified disk address (SS 
SSSSR1R2) for each active file record. Such a table 
can well serve as the processing-order records for 
a disk file. 

POR's on Tape 

Tape POR's can be in two formats : one-per-record 
and spread. Each POR on magnetic tape can contain 
either one data- record's address or control-data 
field, or it can contain more than one address or 
control-data field (up to some maximum number). 
POR's must be fixed in length for any application, 
up to 1,000 characters. They can be either unblocked 
or blocked. The maximum block length is 9,999 
characters. If blocked, each POR on tape must have 
a record mark (A82) as its last character. The 
maximum blocking factor is 99 POR's per block. 
POR's with less than the maximum number of ad- 
dresses or control-data fields must contain enough 


blanks to fill out the fixed record length. The same 
applies to a block of POR's with less than the maxi- 
mum number of POR's - it must be padded with 
blanks (to fill out the fixed block length). 

Figure 46 shows unblocked, spread POR's. 

Figure 47 shows blocked POR's, with a record mark 
as the last character in each processing-order 
record. 

When disk addresses are used, the field length 
is 6 positions for an unblocked disk file, 7 positions 
for a blocked disk file (with a blocking factor be- 
tween 2 and 10), and 8 positions for a blocked disk 
file with a blocking factor greater than 10. 


Next- Record Field 

Data records in a disk file can contain a next- record 
field. This field contains either the disk address or 
the control data of the next data record to be pro- 
cessed. Thus, the first disk record contains the 
address or the control data of the second disk record 
to be processed, the second disk record contains 
the address or the control data of the third record to 
be processed, and so on. The next-record field of 
the last record to be processed contains blanks. 
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This informaHai applies to the 
first 50 data records. 


This information applies to the 
second 50 data records. 


POR CONTROL-CARD INFORMATION: 


Specify whether control data is used. 
Whether conversion is required. 


Processing-Order Mode 


Max. No. of Addresses or Control -Data Fields per Processing- 
Order Record 


Distance Between Fields 


Units-Position of First Field 


Length of Disk Address or Control-Data Field 


Figure 46. Fixed-Length, Unblocked, Spread Processing -Order Records 


First Processing-Order Block 



Processing-Order Record 



Figure 47. Fixed-Length, Blocked Processing -Order Records 
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An object program generated by RPG can use the 
next- record field of disk-file records that are 
organized in the random or consecutive mode. It 
uses the field in conjunction with the processing- 
order records as follows. 

• The object program gets (locates and reads out of disk storage) the 
first record by using the first address or control-data field in the 
first processing-order record. It processes the record. 

• The object program gets and processes the record indicated in the 
next-record field of the first disk record retrieved. 

• The object program gets and processes the record indicated in the 
next-record field of the second disk record retrieved. This same 
process continues, until a record is retrieved that has a blank 
next-record field. 

• Upon retrieving and processing a disk record with a blank next- 
record field, the object program returns to the processing -order 
records to select the next disk record to be processed. 

This procedure continues until all the processing -order records are 
read and all the disk records are processed. 


Random Processing of a Random Disk File 


Records of a random disk file can be processed in 
the random mode by programs generated by RPG, 
provided that the user supplies his processing-order 
file. As mentioned previously, the processing-order 
file can be supplied in cards , disk-storage , or 
magnetic tape. Figure 48, which represents three 
forms of the processing-order file, is used as the 
basis for the following explanation of random proc- 
essing of records in a random file. Note that the 
explanation applies for each medium of the process- 
ing-order file. 

First, consider the simplest case, in which each 
POR contains one disk address or control data field. 
Assume there are no trailers. This is the order of 
processing the records of this disk input file: 

1. The disk record represented by the first POR 

2. The disk record represented by the second POR 

3. The disk records represented by the third and 
remaining POR's, in the order read from the 
POR file. 

Now, consider a more complex example. Suppose 
that the input disk file consists of masters and two 
associated trailers. Also, each disk record con- 
tains a next- record (NR) field, located at a fixed 
place in the first trailer record. This random file 
used the chaining technique to indirectly address 
file records , because there can be duplicate 
addresses produced by the address-conversion 
routine. This is the order of processing the records 
of this more complex file: 

1. The disk record represented by field 1 of the first 
POR. (Trailers belonging to masters will be 
included in the assembled record. ) 


2. The disk records (masters and trailers) repre- 
sented by the NR fields, imtil a blank NR field is 
encountered. 

3. The disk record represented by field 2 of the 
first POR. 

4. The disk records represented by the NR fields, 
until a blank NR field is encountered. 

5. This same procedure is repeated for fields 3 
through 10. The object program reads the next 
POR and continues processing the disk input re- 
cords in this same order, until all input records 
represented by the POR file have been processed, 


Note: In the foregoing procedure, the retrieval of each master 
disk record involves, first of all, converting the control data to a disk 
address. Then the control data of the disk record stored at this ad- 
dress is compared to the control data in the POR. If the control-data 
fields are identical, the record is found. Otherwise, the object pro- 
gram reads the overflow-address field of the master record, getting 
the address of the first non-home (overflow) record. This record’s 
control data is compared to that of the POR. If the result is an equal 
comparison, the record is found. Otherwise, the search continues, as 
before, until the record has been found. 


CONTROL-SEQUENTIAL MODE 


If the user's disk input file is organized by a control- 
sequential mode, his POR file must be contained in 
cards in the processing-limits format. The user 
places a card deck, consisting of any number of 
processing- limits cards , directly behind the gener- 
ated object program at the time he loads the pro- 


gram. 

Each card contains two fields: the lower limit 
(the starting field) and the upper limit (the terminal 
field) of the disk input area. If the exact upper limit 
is unknown, use the maximum expected limits. End 
-of-Job will be reached on sensing the 1 EOF trailer 

r»r» ^iolr 


series of sequential records, taken normally in 
ascending numerical order by control data. 

The object program processes records in disk 
storage, using the two fields in each card as address 
limits for that series. The series includes any 
additions records that were added to the original file. 

The object program reads the first processing- 
limits card (Figure 49). It reads out of disk storage 
and processes the disk records represented by the 
two fields in that card. It reads the next processing- 
limits card (if there is one) and repeats these opera- 
tions until the last card is read and those disk rec- 


ords it represents are processed. 
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1 

Disk 

Address 

or 

Control 

Data 




Field 1 Field 2 Field 3 

Control Control Control 
Data Data Data 


POR File in Cards 



Field 1 Field 2 Field 3 

Control Control Control 
Data Data Data 



in Disk Storage 




Field 1 

Field 2 

Field 3 

/'I 

Control 

Control 

Control 


Data 

Data 

Data 


POR File on Tape 



Control \ I [ 
Data ^ R • 


Data 

-Disk Master Record- 


---Avai labi lity 

in D'9'^ 


-Trailer Address of Trailer Record 1 Overflow 

r |4 Data >1 r I Address 

( Disk Master Record ^ 


Address of Trailer Record 2 NR Field 
^ - Data > -j ^ i^Datg - 

« Trai ler Record 1 ) 

-'Address of Next Trailer 
^ | - < -Data- — i 

« Trailer Record 2 1 


Figure 48. Random Processing of Disk Files 








002200 

002206 

Starting 

Terminal 

Field 

Field 

(Lower 

(Upper 

Limit) 

1 

Limit) 



Processing-Order File 



Inpuf file is control-sequential, consisting of 
100-character unblocked records. 


(Deleted Record) 



Additions Area 
000500 




Order of Processing this Disk File: 

002200 

002201 

002202 

000500 

000501 

002203 

002204 

002206 

Get next limits from processing-order file, 
and continue as above. 


Figure 49. Control-Sequential Processing of Disk Files 
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CONTROL CARDS FOR RPG PROCESSOR 


The control cards that the user prepares prior to 
generating his report program, provide the RPG with 
information about the IBM 1401, 1440, or 1460 
system to be used, the input and the output units to 
be used, general information about the input and the 
output files, and the user’s choice of processing 
options. The number of control cards RPG requires 
depends on the medium of his input file and the out- 
put-file media he selects . Thus , to generate an 
object program for a card input file and a printed 
and/or a punched report, the user must prepare 
only the RPG control card. To generate an object 
program for a disk input file consisting of both 
masters and trailers , producing magnetic-tape 
output, for example, the user must prepare these 
control cards: RPG, TAPOUT, MAS, TRL, and 
POR. 

RPG CONTROL CARD 


Columns Contents Ejqilanation 

ffiM 1460 

Punch 1 if Indexing and Store Address 
Register special feature is installed on 
the object machine. Blocked t^se input 
or blocked tape or disk output records 
require this special feature. Otherwise, 
leave blank. 

9 1 or blank Modify Address instruction on object 

machine. Punch 1 if it can be used. 

Otherwise, leave blank. 

10 1 or blank Direct seek special feature on object 

machine. Punch 1 if it is installed and 
used by the object program. Otherwise, 
leave blank. 

11 1, 2, or blank Form of RPG-generated output. Punch 

1 for an Autocoder-language symbolic 
program deck. Punch 2 for the load-and - 
go option (the machine -language object 
program is stored on the systems pack.) 
Leave blank for a condensed, machine- 
language program deck. 


This card is required for all applications of RPG. 
hi it the user punches information about the IBM 
1401, 1440, or 1460 system configuration, the form 
of RPG-generated output, the input-file medium, the 
output media, the general specifications for disk 
output (if used) , and the identification for his object 
program. Here are the format and contents for the 
RPG card. 


Columns 

1-3 

4 


Contents 

RPG 

1-4 


1-4 


1 or b 


1 or b 


Explanation 

Identification of this card. 

Core capacity of the system to be used 
to generate the object program. Punch 
1 for 4K, 2 for 8K, 3 for 12K, or 4 for 
16K. 

Core capacity of the object machine (that 
is, the system to be used to execute the 
object program). Punch a number, 1-4, 
as above. 

Sense switches option in source pro- 
gram. Punch 1 if any switches B-D are 
used. Otherwise leave blank. 

Multiply-divide special feature on object 
machine. Punch 1 if installed. Otherwise 
leave blank. 


19 


3 or blank Punch unit for RPG-generated output. 

Punch 3 or 1444. Leave blank for 1442 
or 1402. 

blank Leave blank. 


Card, li^jut-file medium when irunning object 

Disk or program. 

Tape 


1,2, or N IBM 1440 

Printer size of object machine. If printed 
output was specified, punch 1 for an IBM 
1443 Printer with 120 print positions; 
punch 2 for an IBM 1443 Printer with 144 
print positions. If no printed output was 
specified, punch N. 

IBM 1401 or 1460 
Printer size of object machine. If 
printed output was specified, punch 1 for 
an IBM 1403 Printer, Model 1 (100 print 
positions); punch 2 for an IBM 1403 
Printer, Model 2 or IBM 1404 Printer 
(132 print positions). If no printed output 
was specified, punch N. 

1, 2, 3, or IBM 1440 

N Punched-card output from object pro- 

gram. Punch 1 for punched output on 
IBM 1442 unit no. 1; punch 2 for punched 
output on unit no. 2; punch 3 for punched 
output on 1444. Otherwise punch N. 


8 1 or blank IBM 1401 

Punch 1 if Advanced Programming 
special feature is installed on the object 
machine. Otherwise, leave blank. 
Blocked tape input records and blocked 
tape or disk output records require this 
special feature. 

IBM 1440 

Punch 1 if Indexing and Store Address 
Register special feature is installed on 
the object machine. Otherwise, leave 
blank. 


1401 or 1460 

Punched-card output from object pro- 
gram. Punch 1 for card output. Other- 
wise punch N. 

20 D or N Disk-storage output from object program. 

Punch D for disk output. Otherwise 
pimch N. 

Note; If the object program is to 
write no disk output, leave columns 21-75 
blank. 
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Columns Contents Ejqjlanation 


Columns Contents Explanation 


21 

0, 2,4,6, 

or 8 

IBM 1311 

Disk drive-control number. For disk 
output from object program, punch the 
drive-control number of the IBM 1311 on 
which the output pack will be mounted. 


0, B, D, 

F or H 

IBM 1301 

Disk module -control number. For disk 
output from object program, punch 
module-control number of the IBM 1301 
disk module to be used. 

22-27 

ssssss 

Lower-limit sector address for disk- 
output file. 

28-33 

ssssss 

Upper-limit sector address for disk- 
output file. 

34-37 

xxOO 

Block length in characters for disk out- 
put, in multyjles of 100. To obtain this 
length, compute the block length and use 
the next higher multiple of 100. The 
maximum is 9900. If disk-output records 
are not blocked, punch record length in 
the next higher multiple of 100. 

38-40 

XXX 

Record length in characters for disk out- 
put. If the records are blocked, this 
length must include the record-mark 
position. Punch 000 for 1,000 -character 
records (the maximum). 

41-42 

01-99 

Blocking factor for disk output. Punch 01 
if disk -output records are not blocked 
(one record per block). The maximum is 
99. 

43 

b 

Leave blank. 

44 

1 or b 

Label option for disk output. Punch 1 if 
the object program is to check the output 
pack’s label track and write an IBM 1311 
standard disk header label. Otherwise, 
leave blank. 

45-75 

blank 

Leave blank. 

76-80 

XXXXX 

User's program identification. RPG and 


Autocoder will include this information 
in fhft object program; 


12-14 XXX Record length in characters. If the 

records are blocked, this length must in- 
clude the record-mark position. 

Punch 000 for 1,000-character records 
(the maximum). 

15-16 01 to 99 Blocking factor. Punch 01 for unblocked 

records (one record per block). The 
maximum is 99. 

17 x Padding character. Any of the 64 

standard BCD Interchange Code char- 
acters can be used, except these; 
asterisk, substitute blank, group mark, 
record mark, tape mark, and word 
separator. 

Note: K the object program is not to 
check and write an output -tape header 
label, leave columns 18-22 blank. 

18 3 or blank Label option. Punch 3 to specify that 

the object program is to automatically 
(1) read and check the old header label 
(to ensure that the output reel contains 
no unexpired data), and (2) write an IBM 
standard header label. 

19-21 080, 084, Header-label length. If the object pro- 

120, or gram is to check and write an IBM 

blank standard header label, indicate the label 

length. 

22 Y, N, or Label tape mark. If a 120-character 

blank header label is to be written, punch Y. 

This will cause the object program to 
write a tape mark following the label. If 
an 80- or an 84 -character header label is 
to be written, punch N. This will not 
cause a tape mark to be written following 
the label. 

TAPIN CONTROL CARD 

RPG requires this card to generate an object pro- 
gram that processes a magnetic- tape input file. In 
this card the user punches these general specifica- 
tions for his tape input file: 

Columns Contents Explanation 


TAPOUT CONTROL CARD 

RPG requires this card to generate an object pro- 
gram that writes magnetic-tape output. In this card 
the user punches these general specifications for his 
tape output file: 

Columns Contents Explanation 

1-6 TAPOUT Identification of this card. 


1-5 TAPIN Identification of this card. 

6 1-6 Tape unit number. For 1440, punch 1 or 

2, For 1401 or 1460, punch 1-6. 

7-11 xxxxx Block length in characters. If the rec- 

ords are unblocked, punch the record 
length here also. The maximum is 
09999. 

12-15 xxxx Record length in characters. If the rec- 

ords are blocked, this length must 
include the record-mark position. The 
maximum is 1000. 


7 1-6 Tape unit number. For 1440, punch 1 or 

2. For 1401 or 1460, punch 1-6. 

8-11 xxxx Block length in characters. If output 

tape records are to be unblocked, punch 
the record length here also. Maximum 
length is 9999. 


16-17 01-99 Blocking factor. Punch 01 for unblocked 

records (one record per block). The 
maximum is 99. 

Note: If the tape input file has no 
header label, leave columns 18-22 
blank. 
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Columns Contents E)q)lanation 

18 1,2, 3, or Header-label -check option. Punch 1 to 

blank cause the object program to sk^ a 

header label. Punch 2 to cause the ob- 
ject program to check the file-identifica- 
tion field of an IBM standard header 
label. Punch 3 to cause the object pro- 
gram to perform the same ALL label 
checking as the 1311 IOCS routines. 

19-21 080, 084, Header -label length. If the tape iiq>ut file 

120, or contains an IBM standard tape header 

blank label that is to be automatically skipped 

or checked, punch the label length here. 

22 Y, N, or Label tape mark. For input files with 

blank IBM standard tape header labels that are 

80 or 84 characters long, punch Y if a 
tape mark exists following the label. If 
no tape mark follows the 80 or 84 char- 
acter label, punch N. Leave blank if 120- 
character label was specified. (RPC 
assumes a Y if the label length is 
specified as 120.) 

MAS CONTROL CARD 

RPG can process an input file contained in as many 
as five IBM 1311 disk packs or five IBM 1301 disk 
modules. When processing a random file, the 
entire file area must be on-line. When processing 
a consecutive or control-sequential file, successive 
disk packs can be placed on-line as needed. IBM 
1311 disk sector addresses and their corresponding 
reference numbers are: 

Disk Sector Addresses Reference Number 

000000-019999 0 

020000-039999 2 

040000-059999 4 

060000-079999 6 

080000-099999 8 

IBM 1301 disk sector addresses and their correspond- 
ing references are: 

Disk Sector Addresses Reference Number 

000,000-199,999 0 

200.000- 399,999 B 

400.000- 599,999 D 

600.000- 799,999 F 

800.000- 999,999 H 

RPG always requires this card to generate an 
object program that processes an input file contained 
in disk storage. Punch in the MAS card this infor- 
mation: 

Columns Contents Explanation 

1 -3 MAS Identification of this card. 

4 Y or N Cylinder overflow. Punch Y if cylinder 

overflow can occur when the master 
portion of the input file or when a disk 
POR file is read. Punch N for no cylin - 
der overflow. 


Columns Contents Ejqilanation 

5-8 xxOO Block length in characters, the maximum 

length is 9900 characters. Any lei^h 
specified must be a multiple of 100. To 
obtain this length, compute the block 
length and use the next higher multiple 
of 100. If the records are unblocked, 
punch the record length here in the next 
multiple of 100. 

9-11 XXX Record length in characters. If the 

records are blocked, this length must 
include the record-mark position. 

Punch 000 for 1,000-character master 
records (the maximum). Note that the 
maximum combined length of a master 
and its trailers is 1,000 characters. 

12-13 01-99 Blocking factor. Punch 01 for unblocked 

master records (one master per block). 
The maximum is 99. 

14 b or C Direct addressing. Leave blank if direct 

addressing is used for the disk ii^ut file. 
Punch C for a chained file. 

Note: Columns 15-29 apply only for a 
random or control sequential disk inpitt 
file. 


15-17 XXX Location of control data or first sub- 

field. Punch the units-position location 
within the disk master record of the con- 
trol data. Or, if the control data is split 
into two or three subfields, give the lo- 
cation of the most significant subfield. 

In determining this location, count the 
first character position in a disk master 
record as location 001. 

18-19 01-30 Length of control data or first subfield. 

Punch the number of character positions 
for this field. The maximum length of 
the control data is 30 positions. 

Note: If the control data is contained 
in only one field (not split into subfields), 
leave columns 20-29 blank. 


20-22 XXX Location of second subfield. Punch the 

units-position location of the subfield that 
is second-highest in significance. 

23-24 XX Length of second subfield. 

25-27 XXX Location of third subfield. Punch the 

units-position location of the least- 
significant subfield. 


28-29 XX Length of third subfield. 

Note: The number of master-record 
packs or modules in the itput file (from 
1 to 5) determines how many drive- 
control and address-reference numbers to 
punch in columns 30-39. For example, if 
the master records are contained in one 
pack, punch columns 30 and 31 , leaving 
32-39 blank. Numbers 0, 2, 4, 6, or 8 
refer to IB^M 1311 Disk Storage Drives, 
whereas 0, B, D, F, or H refer to IBM 
1 301 Disk Storage Modules. 
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Columns Contents 


Explanation 


Columns Contents 


Explanation 


30 

0, 2, 4, 6, 8 
(for 1311) 
or 0,B,D,F, 
H (for 1301) 

Drive-control number of IBM 1311 Disk 
Storage Drive or IBM 1301 Disk Storage 
Module on which the (first, if there is 
more than one) master-record pack is 
mounted or master-record module is 
located. 

31 

0,2,4, 6, 8, or 
0, B,D,F,H 

Address-reference number of the (first, 
if there is more than one) master- 
record pack or module. 

32 

0. 2,4,6, 8 or 
0, B,D,F,H 

Drive -control number for the second 
master-record pack or module. 

33 

0.2, 4, 6, 8, or 
0,B,D,F,H 

Address-reference number of the 
second master-record pack or module. 

34 

0, 2,4,6, 8, or 
0. B,D,F,H 

Drive-control number for the third 
master-record pack or module. 

35 

0, 2,4,6, 8, or 
0. B,D,F,H 

Address-reference number of the third 
master-record pack or module. 

36 

0, 2,4,6, 8, or 
0, B,D,F,H 

Drive -control number f'" che fourth 
master -record pack or module. 

37 

0, 2,4,6, 8, or 
0, B,D,F.H 

Address-reference number of the fourth 
master-record pack or module. 

38 

0,2, 4, 6, 8, or 
0,B,D,F,H 

Drive-control number for the fifth 
master-record pack or module. 

39 

0. 2, 4,6, 8, or 
0. B,D,F,H 

Address-reference number of the fifth 
master-record pack or module. 

40 

1,2,3, orb 

Header-label-check option. Punch 1 for 


no header -label checking. Punch 2 for 
automatic checking of the file -identifica- 
tion field (field 4). Punch 3 for automatic 
checking of fields 1-7. This entry ap- 
plies only to IBM 1311 Disk Storage. 
Leave blank when using IBM 1301 Disk 
Storage. 


TRL CONTROL CARD 

RPG requires this card to generate an object pro- 
gram that processes trailer records of a randomly 
organized disK input file. Punch this information in 
the card; 


9-11 XXX Record length in characters of each 

individual trailer record. If the records 
are blocked, this length must include the 
record-mark position. Note that the 
maximum combined length of a master 
and its trailers is 1,000 characters. 

12 0-9 Blocking factor. Punch 0 for unblocked 

trailer records (one trailer per block), 

1 for two trailers per block, and so on. 
Punch 9 for ten trailers per block, which 
is the maximum. 

13-14 01-99 Maximum number of trailers per master. 

Punch 02 for an input file having zero, 
one, or two trailer records per master 
record. There can be as many as 99. 

15-17 XXX Location of control data or first sub- 

field. Punch the units-position location 
within the trailer record of the control 
data. Or, if the control data is split into 
two or three subfields, give the location 
of the most significant subfield. In 
determining this location, count the first 
character position in a trailer record as 
location 001. 

18-19 01-30 Length of control data or first subfield. 

Punch the number of character positions 
for this field. The maximum length of 
the control data is 30 positions. 

Note; If the control data is contained 
in only one field (not ^lit into subfields), 
leave columns 20-29 blank. 

20-22 XXX or blank Location of second subfield. Punch the 

units-position location of the subfield that 
is second-highest in significance. 

23-24 XX or blank Length of second subfield. 

25-27 XXX or blank Location of third subfield. Punch the 

units-position location of the least- 
significant subfield. 

28-29 XX or blank Length of third subfield. 

Note; The number of master-record packs or modules in the input 

file (from 1 to 5) determines how many drive-control and address- 

mimhAT'iQ fn ^n o.vorv^r^1A 

X AX U1.AV-. 

master records are contained in one pack, punch columns 30 and 31, 

leaving 32-39 blank. ^Numbers 0, 2, 4, 6, or 8 refer to IBM 1311 Disk 

Storage Drives, but 0, B, D, F, or H refer to IBM 1301 Disk Storage 

Modules. 


Columns 

Contents 

Explanation 

30 

0, 2, 4, 6, 8 
(for 1311) or 

+ 

1-3 

TRL 

Identification of this card. 


0,B,D,F,H 
(for 1301) 

4 

Y or N 

Cylinder overflow. Punch Y if cylinder 
overflow can occur when the traUer- 
record portion of the input file is read. 
Punch N for no cylinder overflow. 

31 

0, 2, 4, 6, 8, or 
0. B,D,F,H 

5-8 

xxOO 

Block length in characters in multiples 
of 100. To obtain this length, compute 
the block length and use the next higher 
multiple of 100. The maximum is 9900. 
If the records are unblocked, punch the 
record length here also in the next 
higher multiple of 100. 

32 

33 

0, 2 , 4, 6, 8 or* 
0, B,D,F,H 
0, 2, 4,6,8, or 
0,B,D,F,H 


Drive-control number of IBM 1311 Disk 
Storage Drive or IBM 1301 Disk Storage 
Module on which the (first, if there is 
more than one) master-record pack is 
mounted or master -record module is 
located. 

Address-reference number of the (first, 
if there is more than one) master- 
record pack or module, 

Driv 0 *-control numi^sx' for tlis ssco'”'^ 
master-record pack or module 

Address-reference number of the 
second master-record pack or 
module. 
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Columns 

Contents 

Explanation 

34 

0. 2, 4, 6, 8, or 
5 B,D,F,H 

Drive -control number for the third 
master-record pack or module. 

35 

0, 2,4,6, 8, or 
6, B,D,F,H 

Address -reference number of the third 
master-record pack or module. 

36 

0, 2, 4, 6, 8, or 
0,B,D,F,H 

Drive-control number for the fourth 
master-record pack or module. 

37 

0, 2, 4, 6, 8, or 
0,B,D,F,H 

Address-reference number of the 
fourth master-record pack or module. 

38 

0, 2, 4, 6, 8, or 
0 B,D,F,H 

Drive -control number for the fifth 
master-record pack or module. 

39 

0, 2, 4, 6, 8, or 
0,B,D,F,H 

Address-reference number of the fifth 
master-record pack or module. 

40 

1, 2, 3, or 
blank 

Header-label-check option. Punch 1 for 
no header-label checking. Punch 2 for 


automatic checking of the file-identifica- 
tion field (field 4), Punch 3 for auto- 
matic checking of fields 1-7. This 
applies only to IBM 1311 Disk Storage. 
Leave blank when using IBM 1301 Disk 
Storage. 


POR CONTROL CARD 

RPG requires this card to generate an object pro- 
gram that processes a disk-storage input file. In 
this card the user defines his processing-order file 
(including processing limits cards). Punch this 
information in the POR card: 

Columns Contents Explanation 

1-3 POR Identifies the card. 

4 C, D, orT Medium of POR file. If POR’ s are 

punched in cards, punch C; if written in 
disk storage, punch D; If written on 
magnetic tape, punch T. 

Note; Both the control-sequential and the consecutive processing 
order modes require that the POR fUe be contained in cards. 

Randomly organized files can be processed using POR's contained in 
card, tape, or disk. 

5 0, 2, 4, 6, 8 or Drive-control number of the 1311 on 

0, B,D, F, H which the POR-file pack will be 

mounted, or the disk module of the 1301 
which contains the POR file. 

1-6 Tape unit number. For 1440, punch 1 

or 2. For 1401 or 1460, punch 1-6. 

blank Leave column 5 blank if POR’s are 

contained in cards. 

6 Q, 2, 4, 6, 8, or Address-reference number of 1311 POR- 

0, B, D, F, H file pack or 1301 module. 

blank Leave column 5 blank if POR’ s are con- 

tained on cards or tape. 

7-10 xxxx or blank Block length in characters. Any length 

specified must be a multiple of 100, To 
obtain this length, compute the block 
length and use the next higher multiple of 
100. The maximum length for POR’s 
on disk is 1000, for POR’s on tape 9,999. 


Columns 

Contents 

E;q}lanation 

11-13 

XXX or blank 

Record length in characters. For POR’s 
in disk storage, specify the record length. 
The maximum is 900 characters for 
disk POR’s. For tape POR’s the maxi- 
mum is 1000 characters (punch 000 for 
maximum tape). 

14-15 

01-99 or 
blank 

Blocking factor. Punch 01 for unblocked 
POR’ s (one POR per block) on disks or 
tape. \^en using the Sort 5 tag table or 
Sort 6, punch 01. The maximum factor 
for disk is 10, for tape 99. 

16 

1, 2, or 3 

Processing-order mode of the disk itput 
file. Punch 1 for random, 2 for control- 
sequential, or 3 for consecutive. 

17 

1 or 2 

Contents of POR’s. Punch 1 for control 
data or 2 for disk addresses. 

18-19 

01-30 or 
blank 

Length of control data in characters. 
If POR’ s contain control data, specify 
the number of characters (30 is the 
maximum). Otherwise, leave blank. 

20 

Y or N 

Control -data conversion. If POR’s con- 
tain control data, punch Y if conversion to 
disk addresses is required. Otherwise, 
punch N. 

21 

6, 7, or 8 

Length of disk addresses. If POR’s con- 


tain disk addresses, specify the length 
(6, 7, or 8). Or, if POR’s contain control 
data that requires conversion to disk 
addresses, specify the length (6, 7, or 8) 
of the resulting disk addresses. 

Six-digit addresses apply to POR’s for 
an unblocked disk-input file. 

Seven-digit addresses apply to POR’s 
for a blocked disk-it^jut file where the 
blocking factor ranges from 2 to 10. 

Eight -digit addresses apply if the POR 
file consists of the sorted tag table pro- 
duced by the IBM Sort 5 or Sort 6 pro- 
gram or if the blocking factor is greater 
than 10. 

22-24 XXX Location of first field. Punch the units- 

position location within the POR of the 
first data record’s address or control- 
data field. Note that, for POR’s contain- 
ing only one field per record, this is the 
location of the only field in a POR. How- 
ever, for spread POR’s, as well as for 
processing-limits cards, this is the lo- 
cation of the first field within a POR. 

25-26 XX or 00 Distance between fields. For POR’s with 

more than one address or control-data 
field per record, specify the distance 
between consecutive address or control- 
data fields. Use the arithmetic differ- 
ence between the units-position locations 
of the fields. This aj^lies to spread 
POR’ s used in the random mode and to 
processing-limits cards used in both the 
consecutive and the control-sequential 
modes. Punch 00 for a POR file that 
contains only one field per POR. 

27-28 XX Maximum number of fields per POR. 

Punch the maximum number of fields 
per POR. For processing -limits cards, 
02 should be entered. 
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Columns Contents 
29-31 XXX or bbb 


32-33 01-30 or bb 


E}q)lanation 

Location of next -record field. If the disk 
input file contains a next -record (NR) 
field that will be used to identify the next 
record to be processed, punch tJie units- 
position location within the disk record 
of this NR field. Note that, if the NR field 
is in the first trailer record, the location 
to be punched is reckoned from master- 
record position 001. Leave blank if no 
NR field is to be used. 

Note; When using the control -se- 
quential mode of processing, do not 
specify a NR field. 

Length of next -record field. The maxi- 
mum is 30 characters for control data. 
Leave blank if no NR field is to be used. 


systems. For a shorter reference, consider that 
program to be 1401 RPG. 

In anticipation of the needs of present users of 
1401 RPG who will have IBM 1401’s or 1460's 
equipped with IBM 1311's, IBM provides the RPG 
Translator program. The function of this program 
is to translate programs written for 1401 RPG to 
corresponding programs acceptable to 1401-1311, 
1460-1301, or 1460-1311. Programs that RPG 
Translator can thus translate are 1401 RPG pro- 
grams for processing card input files and magnetic- 
tape input files that consist of fixed-length records. 

Note; Programs for IBM 1405 disk files and variable-length- 
record tape files cannot be translated by RPG translator. 


34 Y, N or blank Convert next -record field. If the NR field 

contains control data that must be con- 
verted to disk addresses, punch Y. If it 
contains disk addresses, punch N. If no 
NR field is to be used, leave blank. 

35 blank, 1, 2, or Header -Icibel -check option. RPG pro- 

3 vides automatic label checking of IBM 

1311 standard disk header labels and IBM 
standard tape header labels for POR 
files contained in disk storage and on 
magnetic tape. These are the options; 


36-38 


39 


blank 

blank 


1 

2 

3 


3 


Tape POR file without a label, leave 
blank. 

Disk POR file with or without a label, 
for no checking leave blank. 

Tape POR file with a label, to skip the 
label punch 1. 

Disk or tape POR file with a label, to 
check the file-identification field punch 2. 
Disk POR file with a label or tape POR 
file with a type A ( 120-character), or B 
(80-character) label, to check fields 1 -7 
punch 3. 

Tape POR file with a type C (84-char- 
acter) label, to check fields 1-8 
punch 3. 


080, 084, Header-label length. If the POR file is a 

120, or blank labeled tape file, punch the label length 

(080, 084, or 120 characters). Other- 
wise, leave blank. 


Y, N or blank Label tape mark. For a tape POR file 
with either an 80- or an 84-character 
header label, punch Y if a tape mark 
follows the label; punch N if no tape mark 
follows the label. A Y is always assumed 
for 120-character POR tape header label. 
For POR’s contained in punched cards or 
disk storage, leave blank. 


RPG TRANSLATOR PROGRAM 

Two previous publications. Report Program Genera- 
tor for IBM 1401 Card and Tape Systems (Form 
J24-0215) and Report Program Generator for IBM 
RAMAC«’ 1401 i^stems (Form J24-1467), present 
the Report Program Generator 1401 card-oriented, 
tape-oriented, and disk-storage (EBM 1405) oriented 


The RPG Translator requires one control card. 

In it, the user specifies whether he wants a listing. 
The listing usually consists of two lines for each 
source card. The first line contains the specifica- 
tion from the source card, and the second line con- 
tains the translated specification punched in the 
output card. 

Using an IBM 1401 system, this is how the RPG 
translator program works: 

The user loads the RPG Translator program in 
-the 1401. He puts the 1401 RPG source deck in the 
1402 read feed. (The source deck consists of the 
RPG specifications cards that were punched from the 
Input, Data, Calculation, and Format Specifications 
sheets.) 

When the user starts executing the RPG Transla- 
tor program, it reads a source card, translates the 
specification into the language (and the form) of RPG 
(on Disk) , and punches the translated specification 
in an output card. If the user chose the option to 
print a listing, the program prints on the IBM 1403 
or 1404 Printer the two lines of information, pre- 
viously mentioned. On the listing, the second line is 
offset to the right 20 print positions with respect to 
the first line. 

SPECIAL FEATURE SPECIFICATIONS 

An IBM 1401 or 1460 Data Processing System 
equipped with a special feature to read 51-column 
cards reads either standard 80-column or 51-column 
cards, depending upon the operating mode. When 
operating in the 51-column mode, columns 1-51 
correspond to columns 15-65 of an 80-column card. 
Thus, in any specifications of card columns for 51- 
column input data file cards , the entry is the column 
number plus 14. For example, if a minor control 
field in the 51-column cards of the input data file is 
punched in columns 2-7, the proper entry in columns 
44-46 of the input specifications sheet is 021. 
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SAMPLE PROGRAM DOCUMENTATION 


Six sample programs and the necessary control 
cards for each program are included in this section. 
Two programs use card input files (Figures 50-59 
and Figures 60-67). An RPG program which uses a 
tape input file is shown in Figures 68-7 6. This 
example also shows part of the program listing which 
is produced when the object program is generated. 

Three examples of RPG programs using disk 
input files (control-sequential, consecutive, and 
random) are included in this section. In the random 
example, a sorted tag table, produced by an inter- 
mediate phase of an IBM 1311 Sort program, is used 
as the POR file. 

CARD INPUT FILE 

MONTHLY EXPENSE DISTRIBUTION REPORT 

For this report, the input file is contained in a card 
file as shown in Figure 50. The user lays out the 
format of his report on the printer spacing chart 
(Figure 51). Figures 51-58 show the specifications 
sheets necessary to generate an RPG program which 
will produce the report. Figure 59 shows the printed 
report. 


This program requires one control card, the RPG 
Control Card. In it the user punches: 


Column 

Contents 

E?q}lanation 

1-3 

RPG 

Identifies the card. 

4 

2 

An 8K machine is used to generate th< 
object program. 

5 

2 

An 8K machine is used to execute the 
program. 

7 

1 

Multiply-divide special feature is in- 
stalled. 

9 

1 

Modify-address is present on object 
machine. 

11 

blank 

The form of RPG-generated output is 
condensed machine -language deck. 

12 

blank 

Punch unit is 1402. 

14-17 

CARD 

Input-file is on cards. 

18 

2 

Printer size is 132. 

19 

N 

No punched output. 

20 

N 

No disk output. 



Figure 50. Cards from Input File for Monthly Expense Distribution Report 
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Figure 51. Spacing Chart for Monthly Expense Distribution Report 















Figure 52. Input Specifications for Monthly Expense Distribution Rep>ort 





















Figure 53. Data Specifications for Monthly Expense Distribution Report 














Figure 54. Calculation Specifications for Monthly Expense Distribution Report 




























Figure 55, Format Specifications for Monthly Expense Distribution Report 





























Figure 56. Format Specifications for Monthly Exp»ense Distribution Report 
























Figure 57. Format Specifications for Monthly Expense Distribution Report 




















Figure 58. Format Sp>ecifications for Monthly Expense Distribution Report 





























MONTHLY EXPENSE DISTRIBUTION REPORT 


REPORT DATE 07-18-64 PAGE 1 






OUR 

DATE 


AMOUNT 

AMOUNT 





INVOICE 



AMOUNT 

BY 

BY 





NUMBER 

MO 

DAY 


ACCOUNT 

DEPT 

««« 

DEPT 

NO. 041 









GEN. 

LEDGER NO. 

913 







* 

SUB. 

LEDGER NO. 

660 











12042 

4 

07 

687.50 







12084 

2 

14 

721.92 










1 ,409.42 * 



« 

SUB. 

LEDGER NO. 

700 











12125 

11 

23 

675.95 










675.95 ♦ 











2,085.37 


*« 

GEN. 

LEDGER NO. 

915 







« 

SUB. 

LEDGER NO. 

760 











12086 

12 

15 

2,119.50 




2,119.50 * 

2,119.50 

4,204.87 


Figure 59. Monthly Expense Distribution Report (Part 1 of 3) 
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MONTHLY EXPENSE DISTRIBUTION REPORT 


REPORT DATE 07-18-6<S- PAGE 





OUR 

DATE 



AMOUNT 

AMOUNT 




INVOICE 



AMOUNT 


BY 

BY 




NUMBER 

MO 

DAY 



ACCOUNT 

DEPT 

«»« 

DEPT 

. NO. 042 








*« 

GEN. 

LEDGER NO. 901 








« 

SUB. 

LEDGER NO. 615 

12095 

5 

08 

125.03 

125.03 

» 



« 

SUB. 

LEDGER NO. 623 

12091 

6 

10 

571.00 







12088 

5 

16 

685.94 

1,256.94 

« 



* 

SUB. 

LEDGER NO. 629 

12080 

5 

03 

24.15 







12073 

5 

02 

1,631.17 

1,655.32 

* 



» 

SUB. 

LEDGER NO. 636 

12109 

7 

03 

1,725.54 

1,725.54 

# 

4,762.83 


«« 

GEN. 

LEDGER NO. 906 








« 

SUB. 

LEDGER NO. 643 

12150 

6 

08 

402.00 





Figure 59. Monthly Expense Distribution Report (Part 2 of 3) 




REPORT DATE 07-18-64 


PAGE 2 


OUR 

DATE 


AMOUNT 

AMOUNT 

INVOICE 


AMOUNT 

BY 

BY 

NUMBER 

MO DAY 


ACCOUNT 

DEPT 

12090 

5 23 

331.96 



12106 

7 03 

95.65 





829.61 * 




* SUB. LEDGER NO. 650 

12093 8 09 806.00 

806.00 # 

1,635.61 

6,398.44 



Figure 59. Monthly Expense Distribution Report (Part 3 of 31 


CARD INPUT FILE INVOICE PREPARATION 

Figures 60-67 show the card input file, the printer 
spacing chart, the RPG specifications sheet, and the 
printed output for this Invoice Preparation report. 
One control card, the RPG control card, is required. 
In it, the user punches information about his data 
processing system. 


Column 

Contents 

Explanation 


1-5 

RPG 

Identifies the card. 


4 

2 

An 8K machine is used 
object program. 

to generate the 

5 

2 

An 8K machine is used 
object program. 

to execute the 


Columns 

Contents 

Explanation 

7 

1 

Multiply-divide special feature is in- 
stalled on the object machine. 

9 

1 

Modify-address feature is installed on 
object machine. 

11 

1 

The form of the RPG -generated output 
is an Autocoder-language symbolic deck, 

12 

blank 

Punch unit is 1402. 

14-17 

CARD 

Input file is in cards. 

18 

2 

Printer size is 132. 

19 

N 

No punched card output. 

20 

N 

No disk storage output. 
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ORDER DATA 

















Figure 61. Spacing Chart for Invoice Preparation 
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Figure 62. Input Specifications for Invoice Report 

























Figure 63. Data Specifications for Invoice Report 

















Figure 64. Calculation Specifications for Invoice Report 
























Figure 65. Format Specifications for Invoice Report 


Invoice Example 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FORMAT SPECIFICATIONS 

IBM 1401 - 1440- 1460 


Form X24-6593 

I I Printod in U. S. A. 

Pago |0 |5 I of 06 


LINE SPACE SKIP 


> « K 
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isiiii 
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Figure 66. Format Specifications for Invoice Repxort 

































E C BROWN e CO 
2364 MICHIGAN BLVD 
CHICAGO 27, ILL 


SHIPPED VIA 

WESTERN TRUCKERS 


REPRESENTATIVE COMPANY 
ANY CITY - ANY STATE 

SHIPPED TO 

r n 

X-Y-Z SERVICE .CORE 
222 WESTERN AVE 
INDIANAPOLIS, INO 
L J 


INVOICE 

NUMBER PAGE 

26115 1 

JUL 25,64 
29045 


ORDER DATE 

03/15/6U 

ORDER NO. 

AK-71U23 DE D NORTON 



WHEN 
TERMS 
F. O. 

REMiniNG 
% TCN DAYS 
. FACTORY 


DESCRintON 


AMOUNT 

115/278 

LAG SCREWS 1 X 1/2 

2 

C 

5.25 

10.50 

115/282 

LAG SCREWS 3 X 1/2 

5 

C 

5.30 

26.50 

SBN- 02 

HAMMER-ADZE EYE, BELL POLL.RND NECK 

12 

DOZ 

10.50 

126.00 

369-2HF 

HAMMER-BALL PEEN 2/0,3/4 LB 

4 

DOZ 

12.64 

50.56 

101-224 

WASHING MACHINE 

8 

EACH 

165.00 

1,320.00 

21-564 

NAILS-STEEL WIRE 60-2 IN 

6 

CWT 

8.30 

49.80 

21-572 

NAILS-STEEL WIRE 100-3 IN 

4 

CWT 

7.80 

31.20 

143-210 

BRUSH, FLAT WALL 3X2 5/8 X 13/16 

6 

EACH 

.95 

5.70 

743D217 

GROMMETS 

720 

EACH 

.01 

7.20 

216-210 

PAINT, FLAT WHITE 

12 

GAL 

2.85 

34.20 


REPRESENTATIVE COMPANY 
ANY CITY - ANY STATE 


E C BROWN £ CO 


PlEASE REFER TO 
OUR INVOICE NUMBER 
WHEN REMITTING 
TERMS 2% TEN DAYS 
F. O. B. FACTORY 


216-418 PAINT, WALL UNDERCOAT 


INV TOT 
2* DISC 
NET AMT 


2.95 

i 1,664.61» 

$ 33.29CR 

$ 1,631.32» 


Figure 67, Invoice Report 
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TAPE INPUT FILE EXAMPLE 


In this example, the user's input file is on tape. He 
wants a printed report as shown on the Printer Spac- 
ing chart (Figure 69). He also wants to write part of 
the report on tape for future use. (See line 190 of 
Figure 73 and line 060 of Figure 74. ) Figures 68-76 
show the tape input file, the Printer Spacing chart, 
the RPG specifications sheets, part of the program 
listing which is produced when the object program is 
generated, and the printed report. Tape output for 
this program is not shown. 

RPG requires three control cards for this pro- 
gram: RPG, TAPOUT, and TAPIN. 

RPG Control Card 


Column 

Contents 

Explanation 

1-3 

RPG 

Identifies the card. 

4 

2 

An 8K machine is used to generate the 
object program. 

5 

2 

An 8K machine is used to execute the 
object program. 

7 

1 

Mult^ily-divide special feature is in- 
stalled on the object machine. 

8 

1 

Advanced programming special feature 
is installed on the object machine. 

9 

1 

Modify address is installed on the objec 
machine. 

11 

blank 

Condensed deck output. 



Columns 

Contents 

E^lanation 

14-17 

TAPE 

Input file is on tape. 

18 

2 

Printer size is 132. 

19 

N 

No punched card output. 

20 

N 

No disk output. 

76-80 

PUBNF 

Program Identification. 

TAPOUT Control Card 

Column 

Contents 

Explanation 

1-6 

TAPOUT 

Identifies the card. 

7 

2 

Tape unit number. 

8-11 

0120 

Block length. 

12-14 

120 

Record length. 

15-16 

01 

Blocking factor. 

17 

blank 

Padding character. 

TAPIN Control Card 


Columns Contents 

Ejqjlanation 

1-5 

TAPIN 

Identifies the card. 

6 

1 

Tape unit number. 

7-11 

00240 

Block length. 

12-13 

0080 

Record length. 

16-17 

03 

Blocking factor. 

18 

1 

No label option 





Figure 69. Printer Spacing Chart 
















Figure 70. Input Specifications Sheet 



Figure 71. Data Specifications Sheet 



Figure 72. Calculation Specifications Sheet 
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lUOl/60 RPG EDIT LISTING 


CO PAGE 

SEO NO LINE CARD IMAGE 


DIAGNOSTIC 


1 1010 TAAN OOINC 


010230600404 


2 2010 0CUSTN00040Q 

3 2020 DCUSTNA009 804 

4 2030 0INVNUH00600 

5 2040 OPTNUMR00400 

6 2050 OPRICE 00502 

7 2060 0QUANTY00300 


TAA 004 
TAA 015 
TAA 023 
TAA 02^ 
TAA 037 
TAA 045 


8 3010 AMULT 00802 

9 3020 AINVT0T00902 

10 3030 ACUST0T00902 

11 3040 AREGION00902 


PRICE 


XQUANTYC 
MULT A 
MULT A 
MULT A 


0 

D 

0 

0 


13 4015 L 

14 4020 K 

15 4030 LHBBX 

16 4035 L 

17 4040 K 

18 4050 K 

19 4060 K 

20 4070 K 

21 4080 K 

22 4090 K 

23 4100 LDCCX 

24 4110 F 

25 4120 F 

26 4130 F 

27 4140 F 

28 4150 F 

29 4155 F 

30 4160 LTOOX T 

31 4165 L 

32 4170 K 

33 4180 B 

34 4190 LTEEX 

36 4200 K 

37 4210 6 

38 4220 LTFFX T 

39 4230 K 

40 4240 B 


0101 


02 


02 


03 


03 


03 


IP 

OF 


IP 

OF 


01 


F2N04 


LC 


070 


017 

032 

048 

059 

073 

090 

CUSTN0012 
CUSTNA030 
INVNUH045 
PTNUMR057 
PRICE 071 
MULT 090 


104 

INVT0T116 

106 

CUST0T118 

059 

REGI0N072 


SFOSTE SUPPLIES INC3 


3CUST0MER NO. 3 
9CUST0MER NAMES 
aiNvoiCE NO. a 
9PART NC.9 
SUN2T PRICES 
STOTAL PRICES 


0 . 9 


aiNV TOTALS 
SS 0. 3 


STOTALS 
Si 0 . a 


aSUMHARY TDTALa 
3$ 0 . a 


RPG CONTROL CARD COL. INFORMATION 


PUNCHED 


1-3 CTL. CARD lOENT. 

-t MACH. SIZE GEN. PROG. 

5 MACH. SIZE OBJ. PROG. 

6 SENSE SWITCHES 

7 HULTIPLY-DIVIDE 

8 ADVANCED PROGRAMMING 

9 MODIFY ADD FEATURE 

10 DIRECT SEEK 

11 CONDENSED DECK 

14-17 INPUT MEDIA 

18 PRINTER OUTPUT 

19 PUNCH OUTPUT 

20 DISK OUTPUT 

76-80 IDENTIFICATION 


RPG 


-NO- 

-YES- 

-YES- 

-YES- 

-YES- 

-YES- 

TAPE 

132 

-NO- 

-NO- 

PUBNF 


TAPOUT CONTROL CARD COL. INFORMATION 


PUNCHED 


1-6 CTL. CARO IDENT. TAPOUT 

7 TAPE UNIT NUMBER 2 

8-11 BLOCK LENGTH 0120 

12-14 RECORD LENGTH 120 

15-16 BLOCKING FACTOR 01 

17 PADDING CHARACTER -BLANK- 

18 LABEL OPTION -NONE— 

76-80 PROGRAM IDENTIFICATION 


TAPIN COKTROL CARD COL. INFORMATION PUNCHED 

1-5 CTL. CARD IDENT. TAPIN 

6 TAPE UNIT NUMBER 1 

7-11 BLOCK LENGTH 00240 

12-15 RECORD LENGTH 0080 

16-17 BLOCKING FACTOR 03 

18 LABEL OPTION -NONE- 


76-80 PROGRAM IDENTIFICATION 


ORDERED CALC SPECS 


001 

002 

003 

004 


AMULT 00802 
AINVT0T0Q902 
ACUST0T00902 
AREGI0N00902 


PRICE XQUANTYC 
MULT A 
MULT A 
MULT A 


UNDEFINED CONDITIONS 
NOME 


Figure 75. Part of Printout from RPG Assembly (Part 1 of 2) 



RESULTING CONDITIONS 


LITERALS AND CONSTANTS 


ADDRESS 

LABEL 

516 

517 
SIB 

519 

520 

521 

522 

523 

524 

525 

526 

525 

526 
S25 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

FIELOl 

FIELD2 


TYPE 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

alphanumeric 

ALPHANUMERIC 

alphanumeric 

ALPHANUMERIC 

ALPHANUMERIC 

ALPHANUMERIC 

NUMERIC 

ALPHANUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 

NUMERIC 


FQSTE, SUPPLIES INC 
CUSTOMER NO. 
CUSTOMER NAME 
INVOICE NO. 

PART NO. 

UNIT PRICE 
TOTAL PRICE 


Figure 75. Part of Printout from RPG Assembly (Part 2 of 2) 
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FOSTE SUPPLIES INC 


CUSTOMER NO« CUSTOMER NAME INVOICE NO. PART NO. UNIT PRICE TOTAL PRICE 

111! ANDERSON OOOIll 1111 25050 % 36072.00 

1111 ANDERSON OOOIll 2222 52050 % 62460.00 

1111 ANDERSON OOOIll 3333 22022 S 5265.28 

INV TOTAL « 1036X7.28 

ANDERSON 000222 3333 22022 $ 5285.28 

ANDERSON 000222 1000 45050 $ 10812-00 

ANDERSON 000222 2500 10000 « 20000.00 

INV TOTAL $ 36097.28 

TOTAL $ 139914.56 

BRANDONS 111222 4444 25025 t 31031-00 

BRANDONS 111222 5555 85025 $384313.00 

BRANDONS 111222 6666 11185 $ 12303.50 

INV TOTAL $ 427647.50 

2?22 BRANDONS 111755 6666 12285 $ 13513.50 

INV TOTAL $ 13513.50 

2222 BRANDONS 252889 9999 22525 $ 45050.00 




Figure 76. Printed Report 
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CONTROL-SEQUENTIAL DISK INPUT FILE 


MAS Control Card 


Figures 77-84 are an example of a disk input file 
(control-sequential mode) used for input in an RPG 
program. The file consists of 100-character, un- 
blocked disk records. The main file area is stored 
from disk locations 001200 to 011199. Additions 
records are stored from locations 000100 to 001099. 
A single processing limits card is required for the 
POR. 

Three control cards and one processing limits 
card are required for this program. 

RPG Control Card 


Columns 

Contents 

Explanation 

1-3 

RPG 

Identifies the card. 

4 

2 

An 8K machine is used to generate the 
object program. 

5 

2 

An 8K machine will be used to execute 
the object program. 

7 

1 

Multiply-divide special feature is in- 
stalled. 

9 

1 

Modify-address feature is installed on 
object machine. 

14-17 

DISK 

Input file is on disk. 

18 

2 

Printer size is 132. 

19 

N 

No punched output. 

20 

N 

No disk output. 

Columns 21 

-75 are blank. 

There is no disk output. 


Column 

Contents 

Explanation 

1-3 

MAS 

Identifies the card. 

4 

N 

No cylinder overflow. 

5-8 

0100 

Block length. 

9-11 

100 

Record length. 

12-13 

01 

Blocking factor. 

30 

0 

Drive control number. 

31 

0 

Address reference number. 

POR Control Card 


Column 

Contents 

Explanation 

1-3 

POR 

Identifies the card. 

4 

C 

POR’ s are punched in cards. 

16 

2 

Processing-order mode is control- 
sequential. 

17 

2 

Contents of POR’s are disk addresse 

20 

N 

No conversion to disk addresses. 

21 

6 

Length of disk addresses. 

22-24 

006 

Units position of first field. 

25-26 

10 

Distance between fields. 

27-28 

02 

Maximum number of fields per POR. 

Processing Limits Card 

Columns 

Contents 

Explanation 

1-6 

001200 

Lower limit of input file area. 

11-16 

011199 

Upper limit of input file area. 
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DISK 

ADDRESS 

i1 6 

7 ? 
MATL 


12 16 

STOCK 

NO. 


19 23 

UNIT 

COST 


26 49 

DESCRIPTION 


52 55 

OLD 

BAL 


58 61 

RECPTS. 


64 67 

REQNS. 


70 73 

ON 

HAND 


76 79 

ON 

ORDER 


82 85 

MIN. 

iNvr. 


88 91 

AVAIL. 


95 100 

SEQUENCE 

LINK 

001200 

011199 

000 

00 

55 

Dummy Re 

CO 

rd - Positions 14-94 ore blank) 
















000101 

001201 


301 


296U8 


0071U 


C D BRASS 


0637 


0000 


0013 


0624 


0000 


0081 


0543 



001202 


301 


30623 


01270 


H H CLOCK BRASS 


0060 


0100 


0066 


0094 


0000 


0073 


0021 



001203 


301 


35369 


0032U 


BRASS DISC 


0186 


0000 


0000 


0186 


0250 


0215 


0221 


000103 

00120U 


301 


U0732 


05710 


HARD SPRING BRASS 


0765 


0600 


0207 


1158 


0000 


0420 


0738 



001205 


301 


U1693 


17500 


BRASS PINION 


0312 


0000 


0091 


0221 


0100 


0200 


0121 



001206 


301 


50800 


00594 


EXTRUDED BRASS 


0854 


0090 


0944 


0000 


1000 


0350 


0650 



001207 


301 


5263U 


90200 


BERYLLIUM COPPER 


0475 


0000 


0283 


0192 


0000 


0225 


0033 



001208 


301 


60900 


01565 


BRONZ TUBING 


0270 


0500 


0341 


0429 


0000 


0274 


0155 



001209 


30 5 


10005 


07500 


ALUMINUM CASTING 


4210 


0000 


0060 


4150 


0000 


0295 


3955 



001210 


305 


20012 


08400 


ALUMINUM ALLOY CAST 


0455 


5340 


0710 


5085 


0000 


0322 


4763 



00121 1 


305 


20023 


09500 


BRASS CASTING 


0000 


2000 


0373 


1627 


0000 


0032 


1595 



001212 


305 


30023 


64000 


BRONZ ALLOY CASTING 


0243 


0081 


0015 


0309 


0500 


0400 


0409 



000100 

001099 

000 

00 

00 ( 

)u 

mmy Re 

CO 

d - Positions 14-94 and 96-100 a 

re 

blank 














+ 

000101 


301 


10300 


00153 


BRASS ROD 


1357 


0345 


0967 


0735 


3000 


3100 


0635 


000102 

000102 


301 


20U00 


00236 


SOFT BRASS ROD 


1130 


0066 


0786 


0410 


0000 


0760 


0350 


001201 

000103 


301 


389U2 


00683 


BRASS TUBING 


0923 


0000 


0500 


0423 




0000 


0037 


0386 


001204 


Figure 77. Disk Input Records for Stock Inventory Report 
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Figure 78. Spacing Chart for Stock Inventory Report 













IBM 

Report Stock Inventor; 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM 1401 -- 1440- 1460 


Form X24-6590 
Printed in U. S. A. 


Programmed by 



Figure 79. Input Specifications for Stock Inventory Report 


IBM 

stock Inventory 

Programmed by 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR DATA SPECIFICATIONS 

IBM 1401 - 1440- 1460 


Form X 24-6591 
Printed in U. S. A. 
06 



Figure 80. Data Specifications for Stock Inventory Report 






































Calculation Specifications for Stock Inventory Report 





















Figure 82. Format Specifications for Stock Inventory Report 




































Figure 83. Format Specifications for Stock Inventory Rep>ort 

























STOCK INVENTORY 

REPORT 





JULY 2, 1964 - 

PAGE 1 



MAIL. 

STOCK 

DESCRIPTION 

UNIT 

QUANTITY 

ON HAND 


NO. 


COST 

ON HAND 

COST 

301 

10300 

BRASS ROD 

1.53 

735 

1,124.55 

301 

20400 

SOFT BRASS ROD 

2.36 

410 

967.60 

301 

29648 

C 0 BRASS 

7.14 

624 

4,;*55.36 

301 

30623 

H H CLOCK BRASS 

12.70 

94 

1,193.80 

301 

35369 

BRASS DISC 

3.24 

186 

602.64 

301 

38942 

BRASS TUBING 

6.83 

423 

2,889.09 

301 

40732 

HARD SPRING BRASS 

57.10 

1,158 

66,121 .80 

301 

41693 

BRASS PINION 

175.00 

221 

38,675.00 

301 

50800 

EXTRUDED BRASS 

5.94 



301 

52634 

BERYLLIUM COPPER 

902.00 

192 

173,184.00 

301 

60900 

BRONZ TUBING 

15.65 

429 

6,713.85 

30 5 

10005 

ALUMINUM CASTING 

75.00 

4,150 

311,250.00 

305 

20012 

ALUMINUM ALLOY CAST 

84.00 

5,085 

427, 140.00 

305 

20023 

BRASS CASTING 

95.00 

1,627 

154,565.00 





PAGE TOTAL 

$1,188,882.69 



STOCK INVENTORY 

REPORT 





JULY 2, 1964 - 

PAGE 2 



MAIL. 

STOCK 

DESCRIPTION 

UNIT 

QUANTITY 

ON HAND 


NO. 


COST 

ON HAND 

COST 

305 

30023 

BRONZ ALLOY CASTING 

640.00 

309 

197,760.00 




/v/ra/ ToMa/3p€Ofv 


PAGE TOTAL 

$X, XXX, XXX. XX 



o/t fhe /ast 

FINAL TOTAL $XXXtXXX,XXX.XX 


Figure 84. Stock Inventory Report 



CONSECUTIVE DISK INPUT FILE EXAMPLE 


MAS Control Card 


Figures 85-90 are an example of an RPG program 
using a disk input file which is organized by a con- 
secutive method of disk file organization. Each 
record on disk is 100-characters in length, and each 
record represents a particular order to the Foste 
Supplies Inc. The file has been previously sorted by 
customer number and by sales region. The disk file 
is located from addresses 000401 to 000600. A 
single processing limits card is iised for the POR. 

The report desired by the company is a detailed 
accounting of each order, a calculation of the total 
cost for each order, and a total cost for each cus- 
tomer. Figure 90 shows part of the printed report. 
The printer spacing chart is not shown for this 
program. 

Three control cards and a processing limits card 
are required for this program. 


RPG Control Card 


Column 

Contents 

Ejqjlanatlon 

1-3 

RPG 

Identifies the card. 

4 

2 

An 8 K machine is used to generate the 
object program. 

5 

2 

An 8K machine will be used to execute 
the object program. 

7 

1 

Multiply divide special feature is in- 
stalled on the object machine. 

9 

1 

Modify address Instruction is installed 
on the object machine. 

10 

1 

Direct Seek special feature is installed 
on the object machine. 

14-17 

DISK 

Input file is on disk. 

18 

2 

Printer size is 132. 

19 

N 

No punched output. 

20 

N 

No disk output. 


Column 

Contents 

Explanation 

1-3 

MAS 

Identifies the card. 

4 

N 

No cylinder overflow. 

5-8 

0100 

Block length. 

9-11 

100 

Record length. 

12-13 

01 

Blocking factor. 

30 

2 

Drive control number. 

31 

0 

Address reference number, 


POR Control Card 


Column 

Contents 

Explanation 

1-3 

POR 

Identifies the card. 

4 

C 

POR’ s are punched in cards. 

16 

3 

Processing -order mode is consecutive, 

17 

2 

Contents of POR’s are disk addresses. 

21 

6 

Length of disk addresses. 

22-24 

006 

Units position of first field. 

25-26 

10 

Distance between fields. 

27-28 

02 

Maximum number of fields per POR. 

Processing Limits Card 

Column 

Contents 

Ejqjlanation 

1—6 

000401 

Lower limit of input file. 

11-16 

000600 

Upper limit of input file. 
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Figure 87. Calculation Specifications 






















Figure 88. Format Specifications 































Figure 89. Format Specifications 




















FOSTE SUPPLIES INC 


CUSTOMER NO. 

CUSTOMER NAME 

INVOICE NO. 

PART NO. 

UNIT PRICE 

000111 

ANSON CO 

000123 

100 

$ 10.00 

000111 

ANSON CO 

000123 

101 

$ 5.97 

000111 

ANSON CO 

000125 

103 

$ 1.05 

000111 

ANSON CO 

000130 


$101.10 


TOTAL PRICE 

$ 2U0.00 

$ 716.40 

INV. 

$ 151.20 

. INV. 

* 1213.20 

INV. 


TOTAL $ 956.40 

TOTAL $ 151.20 

TOTAL $ 1213.20 

TOTAL $ 2320.80 





RANDOM DISK FILE EXAMPLE (WITH AN IBM 1311 
SORT TAG TABLE AS A P OR FILE) 

In this example, assume that the Foste Supplies hic. 
wants the same report that was used in the previous 
example of a Consecutive Disk Input File (Figures 
85-90). In this case, the records have been placed 
on disk in a random method. An IBM 1311 Sort pro- 
gram may be used to obtain a sorted tag table. This 
table may then be used as the POR file for RPG pro- 
cessing. 

The output from the sort (the user's POR file) 
would be located on disk in the area assigned by the 
user during the sort run. For example, assume that 
the user assigned disk locations 000000 to 000200 as 
his POR file area. The sort program prints out the 
exact lower limit of the sorted tag table (for example, 
000150). The user assigned the upper limit (000200). 

The company, as in the consecutive example, 
wants a detailed accounting of each order, a calcula- 
tion of the total cost for each order, and a total cost 
for each customer. The RPG specifications sheets 
for this program are the same as in the consecutive 
example (Figures 85-90). The user needs three 
control cards and one POR- File Limits Card for 
this program. 

RPG Control Card 


Column Contents Explanation 


1-3 RPG 


Identifies the card. 


4 2 

5 2 

7 1 

9 1 

10 1 

14-17 DISK 


An 8K machine is used to generate the 
object program. 

An 8K machine will be used to execute 
the object program. 

Multiply-divide special feature is in- 
stalled on the object machine. 

3,ddr*sss instr*MCtlon is 
on the object machine. 

Direct Seek special feature is installed 
on the object machine. 

Input file is on disk. 


18 2 


Printer size is 132. 


19 N No punched output. 

20 N No disk output. 


MAS Control Card 


Column 

Contents 

Explanation 

1-3 

MAS 

Identifies the card. 

4 

N 

No cylinder overflow. 

5-8 

0100 

Block length. 

9-11 

100 

Record length. 

12-13 

01 

Blocking factor. 

30 

2 

Drive control number. 

31 

0 

Address reference number. 

POR Control Card 


Columns 

Contents 

Explanation 

1-3 

POR 

Identifies the card. 

4 

D 

POR file is on disk. 

5 

0 

Drive control number of IBM 1311 on 
which the POR file pack will be 
mounted. 

6 

0 

Address-reference number of the POR 
file pack. 

7-10 

0200 

Block length. 

11-13 

200 

Record length. 

14-15 

01 

Blocking factor. 

16 

1 

Indicates random method. 

17 

2 

Contents of POR's are disk addresses. 

21 

8 

Length of disk addresses. 

22-24 

008 

Units position of first field. 

25-26 

08 

Distance between fields. 

27-28 

25 

Maximum number of fields per POR. 


POR- 

File Limits Card 

Column 

Contents 

Explanation 

1-6 

000150 

Starting address obtained from the 



sort run. 

7-2 

000200 

Terminal address. 
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Page Page 


Alphabetic Level Classification 13 

Alphameric Literals 28 

A (Arithmetic) 25 


Machine Requirements 5 

MAS Control Card 59 

Multiply or Divide Signs , 26 


Calculation Specifications 
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Card Files 

Card POR Files . . . 
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29 
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6 
48 

35 


Named Constants 

Naming a Constant 

Next Line 

Next Record Field 
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Numeric Level Format Specifications . . . 
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OP (Operation )+-X/C 

Options (RPG) 

Padded Tape Records 

Page Number 

POR Control Card 
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RPG Control Card 
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